@@ -175,11 +175,12 @@
 			     (processloop (+ i 1))))
 		       )))))
     (debug:print-info 0 *default-log-port* "step " stepname " completed with exit code " (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
     ;; now run logpro if needed
     (if logpro-used
-	(let ((pid (process-run (conc "logpro " logpro-file " " (conc stepname ".html") " < " stepname ".log"))))
+	(let* ((logpro-exe (or (getenv "LOGPRO_EXE" "logpro")))
+               (pid (process-run (conc "/bin/sh -c '"logpro-exe" "logpro-file " " (conc stepname ".html") " < " stepname ".log'"))))
 	  (let processloop ((i 0))
 	    (let-values (((pid-val exit-status exit-code)(process-wait pid #t)))
 			(mutex-lock! m)
 			;; (make-launch:einf pid: pid exit-status: exit-status exit-code: exit-code)
 			(launch:einf-pid-set!         exit-info pid)         ;; (vector-set! exit-info 0 pid)