diff -x Root -x Repository -x Entries -x '*.orig' -u -N -r ./src/networks/donkey/donkeyClient.ml ./src/networks/donkey/donkeyClient.ml
--- ./src/networks/donkey/donkeyClient.ml	2004-05-05 22:56:49.000000000 +0200
+++ ./src/networks/donkey/donkeyClient.ml	2004-05-10 01:59:48.455466112 +0200
@@ -899,18 +899,20 @@
       let module CI = M.EmuleClientInfo in
       
       update_emule_proto_from_tags c t.CI.tags;
-      
-      if !verbose_msg_clienttags then begin
-          lprintf "Message from client[%d] %s(%s)%s\n" (client_num c)
-          c.client_name (brand_to_string c.client_brand)
-          (match c.client_kind with
+
+      BLOG DEBUG (!verbose_msg_clienttags) #
+        BLOG DEBUG : "Message from client[%d] %s(%s)%s\n"
+         (client_num c)
+         (c.client_name)
+         (brand_to_string c.client_brand)
+         (match c.client_kind with
               Indirect_address _ | Invalid_address _ -> ""
             | Direct_address (ip,port) ->
                 Printf.sprintf  " [%s:%d]" (Ip.to_string ip) port;
-          );
-          let xx = string_of_tags_list t.CI.tags in
-          lprintf "tags: %s\n" xx;
-        end
+         )
+	ELOG;
+        BLOG DEBUG : "tags: %s\n" (string_of_tags_list t.CI.tags) ELOG;
+      ELOG
 
 (*   lprintf "Emule Extended Protocol activated\n"; *)