diff --git a/backward-interface.lisp b/backward-interface.lisp
index 7b43a6f7870a0ab9cfc9f5f1739dc682e7d98a38..eec1e5db70c6524b663a32d329e94ca9e375fea7 100644
--- a/backward-interface.lisp
+++ b/backward-interface.lisp
@@ -146,8 +146,9 @@ Please use UIOP:RUN-PROGRAM instead."
     (let ((command (apply 'format nil control-string args)))
       (asdf-message "; $ ~A~%" command)
       (let ((exit-code
-              (nth-value 2 (run-program command :force-shell t :ignore-error-status t
-                                                :output *verbose-out*))))
+              (ignore-errors
+               (nth-value 2 (run-program command :force-shell t :ignore-error-status t
+                                                 :output *verbose-out*)))))
         (typecase exit-code
           ((integer 0 255) exit-code)
           (t 255))))))