@@ -55,11 +55,11 @@
 	      (thread-sleep! 2)
 	      (loop (open-run-close tasks:server-lock-slot tasks:open-db run-id)
 		    (- remtries 1)))
 	    (begin
 	      ;; since we didn't get the server lock we are going to clean up and bail out
-	      (debug:print-info 2 #f "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")
+	      (debug:print-info 2 *default-log-port* "INFO: server pid=" (current-process-id) ", hostname=" (get-host-name) " not starting due to other candidates ahead in start queue")
 	      (open-run-close tasks:server-delete-records-for-this-pid tasks:open-db " rpc-transport:launch")))
 	(begin
 	  (rpc-transport:run (if (args:get-arg "-server")(args:get-arg "-server") "-") run-id server-id)
 	  (exit)))))
 
@@ -123,18 +123,18 @@
       (thread-sleep! 5) ;; no need to do this very often
       (let ((numrunning -1)) ;; (db:get-count-tests-running db)))
 	(if (or (> numrunning 0)
 		(> (+ *last-db-access* 60)(current-seconds)))
 	    (begin
-	      (debug:print-info 0 #f "Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*))
+	      (debug:print-info 0 *default-log-port* "Server continuing, tests running: " numrunning ", seconds since last db access: " (- (current-seconds) *last-db-access*))
 	      (loop (+ 1 count)))
 	    (begin
-	      (debug:print-info 0 #f "Starting to shutdown the server side")
+	      (debug:print-info 0 *default-log-port* "Starting to shutdown the server side")
 	      (open-run-close tasks:server-delete-record tasks:open-db server-id " rpc-transport:try-start-server stop")
 	      (thread-sleep! 10)
-	      (debug:print-info 0 #f "Max cached queries was " *max-cache-size*)
-	      (debug:print-info 0 #f "Server shutdown complete. Exiting")
+	      (debug:print-info 0 *default-log-port* "Max cached queries was " *max-cache-size*)
+	      (debug:print-info 0 *default-log-port* "Server shutdown complete. Exiting")
 	      ))))))
 
 (define (rpc-transport:find-free-port-and-open port)
   (handle-exceptions
    exn
@@ -178,11 +178,11 @@
 		  (begin
 		    (server:try-running run-id)
 		    (thread-sleep! 2)
 		    (rpc-transport:client-setup run-id (- remtries 1)))))
  	    (let* ((server-db-info (open-run-close tasks:get-server tasks:open-db run-id)))
- 	      (debug:print-info 0 #f "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
+ 	      (debug:print-info 0 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
 	      (if server-db-info
  		  (let* ((iface     (tasks:hostinfo-get-interface server-db-info))
  			 (port      (tasks:hostinfo-get-port      server-db-info))
 			 (server-dat (list iface port #f #f #f))
  			 (ping-res  ((rpc:procedure 'server:login host port) *toppath*)))
@@ -201,11 +201,11 @@
 ;; 
 ;; 	     (port     (if (and hostinfo (> (length hostdat) 1))(cadr hostdat) #f)))
 ;; 	(if (and port
 ;; 		 (string->number port))
 ;; 	    (let ((portn (string->number port)))
-;; 	      (debug:print-info 2 #f "Setting up to connect to host " host ":" port)
+;; 	      (debug:print-info 2 *default-log-port* "Setting up to connect to host " host ":" port)
 ;; 	      (handle-exceptions
 ;; 	       exn
 ;; 	       (begin
 ;; 		 (debug:print 0 *default-log-port* "ERROR: Failed to open a connection to the server at host: " host " port: " port)
 ;; 		 (debug:print 0 *default-log-port* "   EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
@@ -215,12 +215,12 @@
 ;; 		 ;;  #f)
 ;; 		 (set! *runremote* #f))
 ;; 	       (if (and (not (args:get-arg "-server")) ;; no point in the server using the server using the server
 ;; 			((rpc:procedure 'server:login host portn) *toppath*))
 ;; 		   (begin
-;; 		     (debug:print-info 2 #f "Logged in and connected to " host ":" port)
+;; 		     (debug:print-info 2 *default-log-port* "Logged in and connected to " host ":" port)
 ;; 		     (set! *runremote* (vector host portn)))
 ;; 		   (begin
-;; 		     (debug:print-info 2 #f "Failed to login or connect to " host ":" port)
+;; 		     (debug:print-info 2 *default-log-port* "Failed to login or connect to " host ":" port)
 ;; 		     (set! *runremote* #f)))))
-;; 	    (debug:print-info 2 #f "no server available")))))
+;; 	    (debug:print-info 2 *default-log-port* "no server available")))))