@@ -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))