@@ -1629,11 +1629,13 @@
 	(if (not (launch:setup))
 	    (begin
 	      (debug:print 0 "Failed to setup, exiting")
 	      (exit 1)))
 	(if (and state status)
-	    (rmt:teststep-set-status! run-id test-id step state status msg logfile)
+	    (let ((comment (launch:load-logpro-dat run-id test-id step)))
+	      ;; (rmt:test-set-log! run-id test-id (conc stepname ".html"))))
+	      (rmt:teststep-set-status! run-id test-id step state status (or comment msg) logfile))
 	    (begin
 	      (debug:print 0 "ERROR: You must specify :state and :status with every call to -step")
 	      (exit 6))))))
 
 (if (args:get-arg "-step")
@@ -1671,11 +1673,12 @@
 	       (test-id   (assoc/default 'test-id   cmdinfo))
 	       (itemdat   (assoc/default 'itemdat   cmdinfo))
 	       (work-area (assoc/default 'work-area cmdinfo))
 	       (db        #f) ;; (open-db))
 	       (state     (args:get-arg ":state"))
-	       (status    (args:get-arg ":status")))
+	       (status    (args:get-arg ":status"))
+	       (stepname  (args:get-arg "-step")))
 	  (if (not (launch:setup))
 	      (begin
 		(debug:print 0 "Failed to setup, exiting")
 		(exit 1)))