@@ -632,11 +632,11 @@
 				     "\n         uname:    " (db:test-get-uname test)
 				     "\n         rundir:   " (db:test-get-rundir test)
 				     )
 			      ;; Each test
 			      ;; DO NOT remote run
-			      (let ((steps (tdb:get-steps-for-test (db:test-get-id test))))
+			      (let ((steps (db:get-steps-for-test db (db:test-get-id test))))
 				(for-each 
 				 (lambda (step)
 				   (format #t 
 					   "    Step: ~20a State: ~10a Status: ~10a Time ~22a\n"
 					   (tdb:step-get-stepname step)