@@ -83,11 +83,11 @@
 
 ;; When using zmq this would send the message back (two step process)
 ;; with spiffy or rpc this simply returns the return data to be returned
 ;; 
 (define (server:reply return-addr query-sig success/fail result)
-  (debug:print-info 11 #f "server:reply return-addr=" return-addr ", result=" result)
+  (debug:print-info 11 *default-log-port* "server:reply return-addr=" return-addr ", result=" result)
   ;; (send-message pubsock target send-more: #t)
   ;; (send-message pubsock 
   (case (server:get-transport)
     ((rpc)  (db:obj->string (vector success/fail query-sig result)))
     ((http) (db:obj->string (vector success/fail query-sig result)))
@@ -125,13 +125,13 @@
        (if (and (string-match "^.*.log" file)
 		(> (file-size (conc "logs/" file)) 200000))
 	   (let ((gzfile (conc "logs/" file ".gz")))
 	     (if (file-exists? gzfile)
 		 (begin
-		   (debug:print-info 0 #f "removing " gzfile)
+		   (debug:print-info 0 *default-log-port* "removing " gzfile)
 		   (delete-file gzfile)))
-	     (debug:print-info 0 #f "compressing " file)
+	     (debug:print-info 0 *default-log-port* "compressing " file)
 	     (system (conc "gzip logs/" file)))))
      '()
      "logs")
     
     ;; host.domain.tld match host?
@@ -139,11 +139,11 @@
 	     ;; look at target host, is it host.domain.tld or ip address and does it 
 	     ;; match current ip or hostname
 	     (not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
 	     (not (equal? curr-ip target-host)))
 	(begin
-	  (debug:print-info 0 #f "Starting server on " target-host ", logfile is " logfile)
+	  (debug:print-info 0 *default-log-port* "Starting server on " target-host ", logfile is " logfile)
 	  (setenv "TARGETHOST" target-host)))
     (setenv "TARGETHOST_LOGF" logfile)
     (common:wait-for-normalized-load 4 " delaying server start due to load") ;; do not try starting servers on an already overloaded machine, just wait forever
     (system (conc "nbfake " cmdln))
     (unsetenv "TARGETHOST_LOGF")
@@ -193,11 +193,11 @@
 						 timeout: 2)))))
 	  ;; if the server didn't respond we must remove the record
 	  (if res
 	      #t
 	      (begin
-		(debug:print-info 0 #f "server at " server " not responding, removing record")
+		(debug:print-info 0 *default-log-port* "server at " server " not responding, removing record")
 		(tasks:server-force-clean-running-records-for-run-id (db:delay-if-busy tdbdat) run-id 
 				" server:check-if-running")
 		res)))
 	#f))))
 
@@ -252,14 +252,14 @@
 (define (server:login toppath)
   (lambda (toppath)
     (set! *last-db-access* (current-seconds))
     (if (equal? *toppath* toppath)
 	(begin
-	  ;; (debug:print-info 2 #f "login successful")
+	  ;; (debug:print-info 2 *default-log-port* "login successful")
 	  #t)
 	(begin
-	  ;; (debug:print-info 2 #f "login failed")
+	  ;; (debug:print-info 2 *default-log-port* "login failed")
 	  #f))))
 
 (define (server:get-timeout)
   (let ((tmo (configf:lookup  *configdat* "server" "timeout")))
     (if (and (string? tmo)