diff --git a/src/main.lisp b/src/main.lisp
index aaa10e4..190781e 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -173,6 +173,7 @@
 		     (format t "~&"))
 
 		 (condition (c)
-		   (when debug (invoke-debugger c))))))
+		   (when debug (invoke-debugger c))
+		   (uiop:quit 1)))))
 
 	(uiop:quit)))))