diff -ruN sks-1.0.7-old/reconserver.ml sks-1.0.7/reconserver.ml
--- sks-1.0.7-old/reconserver.ml	Fri Feb 20 00:57:32 2004
+++ sks-1.0.7/reconserver.ml	Sat Jun 19 00:58:26 2004
@@ -179,9 +179,9 @@
       let elements = Set.elements results in
       let hashes = hashconvert elements in
       print_hashes hashes;
+      log_diffs (sprintf "diff-%s.txt" (sockaddr_to_name addr)) hashes;
       if List.length elements > 0 
       then (
-	log_diffs (sprintf "diff-%s.txt" (sockaddr_to_name addr)) hashes;
 	update_recover_list elements http_addr;
 	[Eventloop.Event (Unix.gettimeofday () +. 10.0,
 			  Eventloop.make_tc ~cb:get_missing_keys
@@ -216,12 +216,10 @@
 	ignore (plerror 4 "Reconciliation complete");
 	let hashes = hashconvert results in
 	print_hashes hashes;
+	log_diffs (sprintf "diff-%s.txt" (sockaddr_to_name partner)) hashes;
 	match results with
 	    [] -> []
 	  | _ ->
-	      log_diffs (sprintf "diff-%s.txt"
-			   (sockaddr_to_name partner)) 
-	      hashes;
 	      update_recover_list results http_addr;
 	      [Eventloop.Event (Unix.gettimeofday (), 
 				Eventloop.make_tc ~cb:get_missing_keys