@@ -78,15 +78,12 @@
 	     (not (file-exists? dbdir)))
 	(create-directory dbdir))
     dbdir))
 
 (define (dbmod:run-id->full-dbfname dbstruct run-id)
-  (conc (dbmod:get-dbdir dbstruct
-
-			 run-id
-
-			 )"/"(dbmod:run-id->dbfname run-id)))
+  (conc (dbmod:get-dbdir dbstruct)
+	"/"(dbmod:run-id->dbfname run-id)))
 
 ;;======================================================================
 ;; Read-only cachedb cached direct from disk method
 ;;======================================================================