@@ -228,11 +228,11 @@
 	     (file-read-access? path))
 	(let* ((dbpath    (conc path "/datashare.db"))
 	       (writeable (file-write-access? dbpath))
 	       (dbexists  (file-exists? dbpath))
 	       (handler   (make-busy-timeout 136000)))
-	  (handle-exceptions
+	  (common:debug-handle-exceptions #t
 	   exn
 	   (begin
 	     (debug:print 2 *default-log-port* "ERROR: problem accessing db " dbpath
 			  ((condition-property-accessor 'exn 'message) exn))
 	     (exit))
@@ -243,11 +243,11 @@
 		(datashare:initialize-db db)))
 	  db)
 	(print "ERROR: invalid path for storing database: " path))))
 
 (define (open-run-close-exception-handling proc idb . params)
-  (handle-exceptions
+  (common:debug-handle-exceptions #t
    exn
    (let ((sleep-time (random 30))
          (err-status ((condition-property-accessor 'sqlite3 'status #f) exn)))
      (case err-status
        ((busy)