@@ -27,11 +27,11 @@
 ;; procstr is the name of the procedure to be called as a string
 (define (rpc-transport:autoremote procstr params)
   (handle-exceptions
    exn
    (begin
-     (debug:print 1 #f "Remote failed for " proc " " params)
+     (debug:print 1 *default-log-port* "Remote failed for " proc " " params)
      (apply (eval (string->symbol procstr)) params))
    ;; (if *runremote*
    ;;    (apply (eval (string->symbol (conc "remote:" procstr))) params)
    (apply (eval (string->symbol procstr)) params)))
 
@@ -43,11 +43,11 @@
   (set! *run-id*   run-id)
   (if (args:get-arg "-daemonize")
       (daemon:ize))
   (if (server:check-if-running run-id)
       (begin
-	(debug:print 0 #f "INFO: Server for run-id " run-id " already running")
+	(debug:print 0 *default-log-port* "INFO: Server for run-id " run-id " already running")
 	(exit 0)))
   (let loop ((server-id (open-run-close tasks:server-lock-slot tasks:open-db run-id))
 	     (remtries  4))
     (if (not server-id)
 	(if (> remtries 0)
@@ -62,11 +62,11 @@
 	(begin
 	  (rpc-transport:run (if (args:get-arg "-server")(args:get-arg "-server") "-") run-id server-id)
 	  (exit)))))
 
 (define (rpc-transport:run hostn run-id server-id)
-  (debug:print 2 #f "Attempting to start the rpc server ...")
+  (debug:print 2 *default-log-port* "Attempting to start the rpc server ...")
    ;; (trace rpc:publish-procedure!)
 
   (rpc:publish-procedure! 'server:login server:login)
   (rpc:publish-procedure! 'testing (lambda () "Just testing"))
 
@@ -99,11 +99,11 @@
     (set! db *inmemdb*)
     (open-run-close tasks:server-set-interface-port 
 		    tasks:open-db 
 		    server-id 
 		    ipaddrstr portnum)
-    (debug:print 0 #f "Server started on " host:port)
+    (debug:print 0 *default-log-port* "Server started on " host:port)
     
     ;; (trace rpc:publish-procedure!)
     ;; (rpc:publish-procedure! 'server:login server:login)
     ;; (rpc:publish-procedure! 'testing (lambda () "Just testing"))
 
@@ -162,11 +162,11 @@
 	   (exit 1))))))
 
 (define (rpc-transport:client-setup run-id #!key (remtries 10))
   (if *runremote*
       (begin
-	(debug:print 0 #f "ERROR: Attempt to connect to server but already connected")
+	(debug:print 0 *default-log-port* "ERROR: Attempt to connect to server but already connected")
 	#f)
       (let* ((host-info (hash-table-ref/default *runremote* run-id #f))) ;; (open-run-close db:get-var #f "SERVER"))
 	(if host-info
 	    (let ((iface    (car host-info))
 		  (port     (cadr host-info))
@@ -205,12 +205,12 @@
 ;; 	    (let ((portn (string->number port)))
 ;; 	      (debug:print-info 2 #f "Setting up to connect to host " host ":" port)
 ;; 	      (handle-exceptions
 ;; 	       exn
 ;; 	       (begin
-;; 		 (debug:print 0 #f "ERROR: Failed to open a connection to the server at host: " host " port: " port)
-;; 		 (debug:print 0 #f "   EXCEPTION: " ((condition-property-accessor 'exn 'message) exn))
+;; 		 (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))
 ;; 		 ;; (open-run-close 
 ;; 		 ;;  (lambda (db . param) 
 ;; 		 ;;    (sqlite3:execute db "DELETE FROM metadat WHERE var='SERVER'"))
 ;; 		 ;;  #f)
 ;; 		 (set! *runremote* #f))