@@ -516,12 +516,12 @@
 				     (bestadrs (server:get-best-guess-address currhost)))
 				(or (equal? host currhost)
 				    (equal? host bestadrs))))))
 	  (case mode
 	    ((info)
-	     (print "oldest: "oldest-dat", selected host: "host", all-valid: "all-valid)
-	     (print "youngest: "(hash-table-ref serversdat (car all-valid))))
+	     (debug:print 0 *default-log-port* "oldest: "oldest-dat", selected host: "host", all-valid: "all-valid)
+	     (debug:print 0 *default-log-port* "youngest: "(hash-table-ref serversdat (car all-valid))))
 	    ((home)     host)
 	    ((homehost) (cons host (am-home?))) ;; shut up old code
 	    ((home?)    (am-home?))
 	    ((best-ten)(names->dats (best-ten)))
 	    ((all-valid)(names->dats all-valid))