Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -122,11 +122,11 @@
 	 (db:open-db dbstruct)))
     ((locked)
      (let* ((current-other (dbr:dbstruct-current-other dbstruct)) ;; contains the name of the current "other" db to work with
 	    (locked-db     (dbr:dbstruct-lookup-other-db dbstruct current-other)))
        (if locked-db
-	   locked-db
+	   locked-db ;; problem here is we don't know which locked db to open
 	   (let* ((link-tree (common:get-link-tree))
 		  (dbdir     (conc link-tree "/.db")) ;; sure, let's use the old .db dir
 		  (dbdat     (db:open-megatest-db
 			      path: dbdir
 			      name: (conc (time->string (seconds->local-time sec) "%Y")