@@ -403,11 +403,12 @@
 (define (common:args-get-status)
   (or (args:get-arg "-status")(args:get-arg ":status")))
 
 (define (common:args-get-testpatt)
   (let* ((args-testpatt (or (args:get-arg "-testpatt")
-			    (args:get-arg "-runtests")))
+			    (args:get-arg "-runtests")
+			    "%"))
 	 (testpatt    (or (and (equal? args-testpatt "%")
 			       (getenv "TESTPATT"))
 			  args-testpatt)))
     testpatt))