@@ -558,11 +558,11 @@
   ;;    (begin
   ;;	(debug:print-error 0 *default-log-port* "rmt:get-tests-for-run called with bad run-id=" run-id)
   ;;	(print-call-chain (current-error-port))
   ;;	'())))
 
-(define (rmt:get-tests-for-run-state-status dbstruct run-id testpatt #!optional (last-update 0))
+(define (rmt:get-tests-for-run-state-status run-id testpatt last-update)
   (rmt:send-receive 'get-tests-for-run-state-status run-id (list run-id testpatt last-update)))
 
 ;; get stuff via synchash 
 (define (rmt:synchash-get run-id proc synckey keynum params)
   (rmt:send-receive 'synchash-get run-id (list run-id proc synckey keynum params)))