@@ -159,11 +159,11 @@
 						   ;; call the command using mt_ezstep
 						   (set! script (conc script "mt_ezstep " stepname " " stepcmd "\n"))
 
 						   (debug:print 4 "script: " script)
 
-						   (teststep-set-status! db run-id test-name stepname "start" "-" itemdat #f)
+						   (teststep-set-status! db run-id test-name stepname "start" "-" itemdat #f #f)
 						   ;; now launch
 						   (let ((pid (process-run script)))
 						     (let processloop ((i 0))
 						       (let-values (((pid-val exit-status exit-code)(process-wait pid #t)))
 								   (mutex-lock! m)
@@ -174,11 +174,11 @@
 								   (if (eq? pid-val 0)
 								       (begin
 									 (thread-sleep! 2)
 									 (processloop (+ i 1))))
 								   ))
-						     (teststep-set-status! db run-id test-name stepname "end" (vector-ref exit-info 2) itemdat #f)
+						     (teststep-set-status! db run-id test-name stepname "end" (vector-ref exit-info 2) itemdat #f (if logpro-used (conc stepname ".html") ""))
 						     (if logpro-used
 							 (test-set-log! db run-id test-name itemdat (conc stepname ".html")))
 						     (cond
 						      ;; WARN from logpro
 						      ((and (eq? (vector-ref exit-info 1) 2) logpro-used)