@@ -53,11 +53,11 @@
 
 ;; given an exit code and whether or not logpro was used calculate OK/BAD
 ;; return #t if we are ok, #f otherwise
 (define (steprun-good? logpro exitcode stepparms)
   (or (eq? exitcode 0)
-      (and logpro (eq? exitcode 2)) ;; shouldn't this be (member exitcode 2 ...) with the other ok codes?
+      (and logpro  (member exitcode '( 2 4 6)))
       (let* ((params (alist-ref 'params stepparms)) ;; get the params section
 	     (keep-going (if params
 			     (alist-ref "keep-going" params equal?)
 			     #f)))
 	(debug:print 0 *default-log-port* "keep-going=" keep-going)