@@ -1910,10 +1910,11 @@
        (args:get-arg "-m"))
       ;; (if db (sqlite3:finalize! db))
       (set! *didsomething* #t)))
     
 (if (or (args:get-arg "-setlog")       ;; since setting up is so costly lets piggyback on -test-status
+        (and (args:get-arg "-m") (not (args:get-arg "-step")))
 	;;     (not (args:get-arg "-step")))  ;; -setlog may have been processed already in the "-step" previous
 	;;     NEW POLICY - -setlog sets test overall log on every call.
 	(args:get-arg "-set-toplog")
 	(args:get-arg "-test-status")
 	(args:get-arg "-set-values")
@@ -1920,11 +1921,11 @@
 	(args:get-arg "-load-test-data")
 	(args:get-arg "-runstep")
 	(args:get-arg "-summarize-items"))
     (if (not (getenv "MT_CMDINFO"))
 	(begin
-	  (debug:print-error 0 *default-log-port* "MT_CMDINFO env var not set, commands -test-status, -runstep and -setlog must be called *inside* a megatest environment!")
+	  (debug:print-error 0 *default-log-port* "MT_CMDINFO env var not set, commands -test-status, -runstep, -m  and -setlog must be called *inside* a megatest environment!")
 	  (exit 5))
 	(let* ((startingdir (current-directory))
 	       (cmdinfo   (common:read-encoded-string (getenv "MT_CMDINFO")))
 	       (transport (assoc/default 'transport cmdinfo))
 	       (testpath  (assoc/default 'testpath  cmdinfo))
@@ -1957,10 +1958,12 @@
 	      (let ((logfname (args:get-arg "-setlog")))
 		(rmt:test-set-log! run-id test-id logfname)))
 	  (if (args:get-arg "-set-toplog")
 	      ;; DO NOT run remote
 	      (tests:test-set-toplog! run-id test-name (args:get-arg "-set-toplog")))
+	  (if (args:get-arg "-m")
+              (rmt:test-set-comment! run-id test-id (args:get-arg "-m")))
 	  (if (args:get-arg "-summarize-items")
 	      ;; DO NOT run remote
 	      (tests:summarize-items run-id test-id test-name #t)) ;; do force here
 	  (if (args:get-arg "-runstep")
 	      (if (null? remargs)