Index: dbfile.scm
==================================================================
--- dbfile.scm
+++ dbfile.scm
@@ -328,11 +328,11 @@
       (current-error-port)
     (lambda ()
       (apply print params))))
     
 (define (dbfile:cautious-open-database fname init-proc sync-mode journal-mode #!optional (tries-left 500))
-  (let* ((busy-file  (conc fname"-journal"))
+  (let* ((busy-file  (conc fname "-journal"))
 	 (delay-time (* (- 51 tries-left) 1.1))
       	 (write-access (file-write-access? fname))
          (dir-access (file-write-access? (pathname-directory fname)))
          (retry      (lambda ()
 		       (thread-sleep! delay-time)