@@ -89,11 +89,13 @@
 		       (idb)
 		       idb)
 		   (open-db)))
 	 (res #f))
     (set! res (apply proc db params))
-    (if (not idb)(sqlite3:finalize! db))
+    (if (or (not idb)
+	    (procedure? idb))
+	(sqlite3:finalize! db))
     (debug:print-info 11 "open-run-close-no-exception-handling END" )
     res))
 
 (define (open-run-close-exception-handling proc idb . params)
   (handle-exceptions