Megatest

	       newdb)
	     (stack-pop! (dbr:dbstruct-dbstack dbstruct)))
	 (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 ;; 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")
					  "-q" (seconds->quarter sec)  ".db"))))
	     (hash-table-set! (dbr:dbstruct-other-dbs dbstruct) current-other dbdat)