Index: mtut.scm
==================================================================
--- mtut.scm
+++ mtut.scm
@@ -17,10 +17,11 @@
 ;;
 ;
 (declare (uses common))
 (declare (uses mtargs))
 (declare (uses debugprint))
+(declare (uses debugprint.import))
 (declare (uses configf))
 ;; (declare (uses rmt))
 (declare (uses commonmod))
 (declare (uses commonmod.import))
 
@@ -489,11 +490,11 @@
 	       (member *action* '("db" "tsend" "tlisten"))   ;; very loose checks on db and tsend/listen
 	       (equal? *action* "show")    ;; just keep going if list
 	       )))
     (debug:print-error 0 *default-log-port* "Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv))  " ")))
 
-(if (or (args:any? "-h" "help" "-help" "--help")
+(if (or (args:any-defined? "-h" "help" "-help" "--help")
 	(member *action* '("-h" "-help" "--help" "help")))
     (begin
       (print help)
       (exit 1)))