@@ -67,27 +67,34 @@
 	(db:initialize db))
     (db:set-sync db)
     db))
 
 (define (open-run-close  proc idb . params)
-  (let ((runner (lambda ()
-		  (let* ((db   (if idb idb (open-db)))
-			 (res #f))
-		    (db:set-sync db)
-		    (set! res (apply proc db params))
-		    (if (not idb)(sqlite3:finalize! db))
-		    res))))
-    (handle-exceptions
-     exn
-     (begin
-       (debug:print 0 "EXCEPTION: database probably overloaded?")
-       (debug:print 0 "  " exn)
-       (print-call-chain)
-       (thread-sleep! (random 120))
-       (debug:print 0 "trying db call one more time....")
-       (runner))
-     (runner))))
+ (let* ((db   (if idb idb (open-db)))
+	(res #f))
+   (db:set-sync db)
+   (set! res (apply proc db params))
+   (if (not idb)(sqlite3:finalize! db))
+   res))
+
+;;   (let ((runner (lambda ()
+;; 		  (let* ((db   (if idb idb (open-db)))
+;; 			 (res #f))
+;; 		    (db:set-sync db)
+;; 		    (set! res (apply proc db params))
+;; 		    (if (not idb)(sqlite3:finalize! db))
+;; 		    res))))
+;;     (handle-exceptions
+;;      exn
+;;      (begin
+;;        (debug:print 0 "EXCEPTION: database probably overloaded?")
+;;        (debug:print 0 "  " exn)
+;;        (print-call-chain)
+;;        (thread-sleep! (random 120))
+;;        (debug:print 0 "trying db call one more time....")
+;;        (runner))
+;;      (runner))))
 
 (define *global-delta* 0)
 (define *last-global-delta-printed* 0)
 
 (define (open-run-close-measure  proc idb . params)