Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -49,11 +49,11 @@
     (handle-exceptions
      exn
      (begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
      (for-each
       (lambda (run-id)
-	(let* ((tests (rmt:get-tests-for-run run-id "%" '() '() #f #f #f #f #f 'shortlist last-update #f)))
+	(let* ((tests (rmt:get-tests-for-run run-id "%" '() '() #f #f #f #f #f #f last-update #f)))
 	  ;; (print "DEBUG: got tests=" tests)
 	  (for-each
 	   (lambda (testdat)
 	     (let* ((testn    (db:test-get-fullname     testdat))
 		    (testname (db:test-get-testname     testdat))