@@ -24,11 +24,11 @@
 (include "common_records.scm")
 (include "db_records.scm")
 
 ;; procstr is the name of the procedure to be called as a string
 (define (rpc-transport:autoremote procstr params)
-  (handle-exceptions
+  (common:debug-handle-exceptions #t
    exn
    (begin
      (debug:print 1 *default-log-port* "Remote failed for " proc " " params)
      (apply (eval (string->symbol procstr)) params))
    ;; (if *runremote*
@@ -136,21 +136,21 @@
 	      (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
+  (common:debug-handle-exceptions #t
    exn
 	  (begin
      (print "Failed to bind to port " (rpc:default-server-port) ", trying next port")
      (rpc-transport:find-free-port-and-open (+ port 1)))
    (rpc:default-server-port port)
    (tcp-read-timeout 240000)
    (tcp-listen (rpc:default-server-port) 10000)))
 
 (define (rpc-transport:ping run-id host port)
-  (handle-exceptions
+  (common:debug-handle-exceptions #t
    exn
    (begin
      (print "SERVER_NOT_FOUND")
      (exit 1))
    (let ((login-res ((rpc:procedure 'server:login host port) *toppath*)))
@@ -204,11 +204,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 *default-log-port* "Setting up to connect to host " host ":" port)
-;; 	      (handle-exceptions
+;; 	      (common:debug-handle-exceptions #t
 ;; 	       exn
 ;; 	       (begin
 ;; 		 (debug:print-error 0 *default-log-port* "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