@@ -7,10 +7,11 @@
 (include "../configf.scm")
 (include "../process.scm")
 (include "../launch.scm")
 (include "../items.scm")
 (include "../runs.scm")
+(include "../megatest-version.scm")
 
 (define conffile #f)
 (test "Read a config" #t (hash-table? (read-config "test.config")))
 (test "Read a config that doesn't exist" #t (hash-table? (read-config "nada.config")))
 
@@ -30,10 +31,13 @@
 (test "setup for run" #t (begin (setup-for-run)
 				(string? (getenv "MT_RUN_AREA_HOME"))))
 (test "open-db" #t (begin
 		     (set! *db* (open-db))
 		     (if *db* #t #f)))
+
+;; quit wasting time changing db to *db*
+(define db *db*)
 
 (test "get cpu load" #t (number? (get-cpu-load)))
 (test "get uname"    #t (string? (get-uname)))
 
 (test "get validvalues as list" (list "start" "end" "completed")