diff --git a/tests/issues.lisp b/tests/issues.lisp
index 5bf1fb0b7e28d5ba1b27ca440e643b9d078e2873..d709a71910c4cae2e5aeca42c6ac2e950dc1c1fb 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -315,3 +315,9 @@
     (:tag :issues)
   (let* ((test-file #.(merge-pathnames #p"resources/issue-24.lisp" cl:*load-pathname*)))
     (assert-true (compile-file test-file :load t))))
+
+(define-test issue.32
+    (:tag :issues)
+  (assert-error 'kernel:simple-program-error
+		(ext:run-program "cat" nil
+				 :before-execve t)))