diff -ruN sks-1.0.7-old/reconserver.ml sks-1.0.7/reconserver.ml
--- sks-1.0.7-old/reconserver.ml	Sat Jun 19 01:09:45 2004
+++ sks-1.0.7/reconserver.ml	Sat Jun 19 01:10:09 2004
@@ -178,7 +178,7 @@
       ignore (plerror 4 "Reconciliation complete");
       let elements = Set.elements results in
       let hashes = hashconvert elements in
-      print_hashes hashes;
+      print_hashes (sockaddr_to_name addr) hashes;
       log_diffs (sprintf "diff-%s.txt" (sockaddr_to_name addr)) hashes;
       if List.length elements > 0 
       then (
@@ -215,7 +215,7 @@
 	let results = Set.elements results in
 	ignore (plerror 4 "Reconciliation complete");
 	let hashes = hashconvert results in
-	print_hashes hashes;
+	print_hashes (sockaddr_to_name partner) hashes;
 	log_diffs (sprintf "diff-%s.txt" (sockaddr_to_name partner)) hashes;
 	match results with
 	    [] -> []
diff -ruN sks-1.0.7-old/recoverList.ml sks-1.0.7/recoverList.ml
--- sks-1.0.7-old/recoverList.ml	Tue Mar  2 13:52:17 2004
+++ sks-1.0.7/recoverList.ml	Sat Jun 19 01:11:39 2004
@@ -56,14 +56,14 @@
   in
   loop list []
 
-let print_hashes hashes  =
-  if List.length hashes = 0 then signore (plerror 4 "No hashes recovered")
+let print_hashes source hashes  =
+  if List.length hashes = 0 then signore (plerror 4 "No hashes recovered from %s" source)
   else if List.length hashes <= 10 then (
-    ignore (plerror 3 "Hashes recovered: ");
+    ignore (plerror 3 "Hashes recovered from %s" source);
     List.iter hashes
       ~f:(fun hash -> ignore (plerror 3 "\t%s" (KeyHash.hexify hash)));
   ) else
-    ignore (plerror 3 "%d hashes recovered" (List.length hashes))
+    ignore (plerror 3 "%d hashes recovered from %s" (List.length hashes) source)
 
 (** converts a list of elements of ZZp to a sorted list of hashes *)
 let hashconvert elements =