Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -255,16 +255,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")
-		   (-run-name  . "-runname")
-		   (-test-patt . "-testpatt")
-		   (-msg       . "-m")
-		   (-new       . "-set-state-status")))
+                 (common:get-param-mapping flavor: 'switch-symbol))
       param))
 
 (define (val->alist val)
   (let ((val-list (string-split-fields ";\\s*" val #:infix)))
     (if val-list