Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -128,14 +128,14 @@
 		 (lambda (a . b)
 		   (set! curr-tmdat (apply vector a b)))
 		 tmgetstmt testm-id)
 		(if (not (equal? curr-tmdat tmdat)) ;; something changed
 		    (begin
-		      (debug:print 0 "  test-id: " test-id
+		      (debug:print 0 "  test-id: " testm-id
 				   "\ncurr-tdat: " curr-tmdat
 				   "\n     tdat: " tmdat)
-		      (apply sqlite3:execute tputstmt (vector->list tmdat))
+		      (apply sqlite3:execute tmputstmt (vector->list tmdat))
 		      (set! tmrecchgd (+ tmrecchgd 1)))))))))
        tmdats)
       (sqlite3:finalize! tmgetstmt)
       (sqlite3:finalize! tmputstmt))
 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -25,10 +25,11 @@
 (declare (uses client))
 (declare (uses tests))
 (declare (uses genexample))
 (declare (uses daemon))
 (declare (uses db))
+(declare (uses tdb))
 (declare (uses mt))
 (declare (uses api))
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
@@ -631,19 +632,19 @@
 				     "\n         uname:    " (db:test-get-uname test)
 				     "\n         rundir:   " (db:test-get-rundir test)
 				     )
 			      ;; Each test
 			      ;; DO NOT remote run
-			      (let ((steps (db:get-steps-for-test db (db:test-get-id test))))
+			      (let ((steps (tdb:get-steps-for-test (db:test-get-id test))))
 				(for-each 
 				 (lambda (step)
 				   (format #t 
 					   "    Step: ~20a State: ~10a Status: ~10a Time ~22a\n"
-					   (db:step-get-stepname step)
-					   (db:step-get-state step)
-					   (db:step-get-status step)
-					   (db:step-get-event_time step)))
+					   (tdb:step-get-stepname step)
+					   (tdb:step-get-state step)
+					   (tdb:step-get-status step)
+					   (tdb:step-get-event_time step)))
 				 steps)))))
 		      tests)))))
 	     runs)
 	   (set! *didsomething* #t))))