Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -96,11 +96,11 @@
 ;;
 (define (db:get-db dbstruct) ;;  run-id) 
   (if (stack? (dbr:dbstruct-dbstack dbstruct))
       (if (stack-empty? (dbr:dbstruct-dbstack dbstruct))
           (let ((newdb (db:open-megatest-db path: (db:dbfile-path))))
-            (stack-push! (dbr:dbstruct-dbstack dbstruct) newdb)
+            ;; (stack-push! (dbr:dbstruct-dbstack dbstruct) newdb)
             newdb)
           (stack-pop! (dbr:dbstruct-dbstack dbstruct)))
       (db:open-db dbstruct)))
 
 ;; ;; legacy handling of structure for managing db's. Refactor this into dbr:?