diff --git a/swank-sbcl.lisp b/swank-sbcl.lisp
index d9e0d13..18afaa4 100644
--- a/swank-sbcl.lisp
+++ b/swank-sbcl.lisp
@@ -1600,7 +1600,7 @@ stack."
                             item))
              (when (minusp
                     (sys-execv program a-args))
-               (sb-posix:syscall-error)))
+               (sb-posix:syscall-error :execv)))
         (sb-alien:free-alien a-args))))
 
   (defun runtime-pathname ()