Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -635,11 +635,11 @@
 	      (let ((logfname (args:get-arg "-setlog")))
 		(rdb:test-set-log! db test-id logfname)))
 	  (if (args:get-arg "-set-toplog")
 	      (rtests:test-set-toplog! db run-id test-name (args:get-arg "-set-toplog")))
 	  (if (args:get-arg "-summarize-items")
-	      (rdb:tests:summarize-items db run-id test-name #t)) ;; do force here
+	      (tests:summarize-items db run-id test-name #t)) ;; do force here
 	  (if (args:get-arg "-runstep")
 	      (if (null? remargs)
 		  (begin
 		    (debug:print 0 "ERROR: nothing specified to run!")
 		    (sqlite3:finalize! db)