Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -872,11 +872,11 @@
      "-set-run-status"
      "set run status"
      (lambda (target runname keys keyvals)
        (let* ((runsdat  (rmt:get-runs-by-patt keys runname 
 					(common:args-get-target)
-					#f #f))
+					#f #f #f))
 	      (header   (vector-ref runsdat 0))
 	      (rows     (vector-ref runsdat 1)))
 	 (if (null? rows)
 	     (begin
 	       (debug:print-info 0 "No matching run found.")