diff --git a/inferior-shell.asd b/inferior-shell.asd
index 09b5348160609c087288377984f63b7d29dd4079..3f89615d82ea0ba8e306304641b85819ce7ee01d 100644
--- a/inferior-shell.asd
+++ b/inferior-shell.asd
@@ -2,7 +2,7 @@
 
 (defsystem "inferior-shell"
   :description "spawn local or remote processes and shell pipes"
-  :version "2.0.2"
+  :version "2.0.3"
   :defsystem-depends-on (:asdf #-asdf3 "uiop")
   :depends-on ((:version #+asdf3 "asdf" #-asdf3 "uiop" "3.0.3") ; input and error-output redirection
                #+sbcl "sb-posix"
diff --git a/run.lisp b/run.lisp
index 3019666654d9805a3f50b9ca83eee1daa29ba476..019b06248b208d4ad15ebea22f91d5a6b65b4d09 100644
--- a/run.lisp
+++ b/run.lisp
@@ -55,7 +55,7 @@
                 &key time show host (on-error t)
                 &allow-other-keys)
   "run command CMD"
-  (when (eq on-error t) (setf on-error 'signal))
+  (when (eq on-error t) (setf on-error 'error))
   (when show
     (format *trace-output* "; ~A~%" (print-process-spec cmd)))
   (flet ((run-it ()