@@ -223,11 +223,11 @@
 		       (setup-for-run)
 		       (open-db)))
 	   (runpatt  (args:get-arg "-list-runs"))
 	   (testpatt (args:get-arg "-testpatt"))
 	   (itempatt (args:get-arg "-itempatt"))
-	   (runsdat  (db-get-runs db runpatt))
+	   (runsdat  (db:get-runs db runpatt #f #f '()))
 	   (runs     (db:get-rows runsdat))
 	   (header   (db:get-header runsdat))
 	   (keys     (db-get-keys db))
 	   (keynames (map key:get-fieldname keys)))
       ;; Each run
@@ -263,11 +263,11 @@
 			     "\n         diskfree: " (db:test-get-diskfree test)
 			     "\n         uname:    " (db:test-get-uname test)
 			     "\n         rundir:   " (db:test-get-rundir test)
 			     )
 		      ;; Each test
-		      (let ((steps (db-get-test-steps-for-run db (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"
 				   (db:step-get-stepname step)