@@ -50,11 +50,11 @@
     db))
 
 (define (portlogger:open-run-close proc . params)
   (let* ((fname  (conc "/tmp/." (current-user-name) "-portlogger.db"))
 	 (avail  (tasks:wait-on-journal fname 10))) ;; wait up to about 10 seconds for the journal to go away
-    ;;(common:debug-handle-exceptions #t
+    ;;(handle-exceptions
     ;; exn
     ;; (begin
     ;;   ;; (release-dot-lock fname)
     ;;   (debug:print-error 0 *default-log-port* "portlogger:open-run-close failed. " proc " " params)
     ;;   (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
@@ -157,11 +157,11 @@
 (define (portlogger:main . args)
   (let* ((dbfname (conc "/tmp/." (current-user-name) "-portlogger.db"))
 	 (db      (portlogger:open-db dbfname))
 	 (numargs (length args))
 	 (result  
-	  (common:debug-handle-exceptions #t
+	  (handle-exceptions
 	   exn
 	   (begin
 	     (debug:print 0 *default-log-port* "EXCEPTION: portlogger database at " dbfname " probably overloaded or unreadable. Try removing it.")
 	     (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 	     (print "exn=" (condition->list exn))