@@ -453,10 +453,13 @@
   (with-output-to-port
       (current-error-port)
     (lambda ()
       (apply print params))))
 
+;;
+;; converge this with dbmod:safely-open-db
+;;
 (define (dbfile:cautious-open-database fname init-proc sync-mode journal-mode
 				       #!key (tries-left 500)(force-init #f))
   (let* ((busy-file  (conc fname "-journal"))
 	 (delay-time (* (- 51 tries-left) 1.1))
       	 (write-access (file-write-access? fname))