@@ -256,11 +256,11 @@
 ;; given a mtutil param, return the old megatest equivalent
 ;;
 (define (param-translate param)
   (or (alist-ref (string->symbol param)
 		 '((-tag-expr  . "-tagexpr")
-		   (-mode-patt . "--modepatt")
+		   (-mode-patt . "-modepatt")
 		   (-run-name  . "-runname")
 		   (-test-patt . "-testpatt")
 		   (-msg       . "-m")
 		   (-new       . "-set-state-status")))
       param))