@@ -86,11 +86,11 @@
 (if (not (setup-for-run))
     (begin
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
-(define *db* (open-db))
+(define *db*  (make-dbr:dbstruct path: *toppath*))
 
 ;; (define sdb:qry (make-sdb:qry)) ;;  'init #f)
 
 ;; (if (args:get-arg "-host")
 ;;     (begin