This is broken, but the stack limit feature works. Some debugging needed.

unit-tests/recursion.sh

@@ -5,8 +5,8 @@ output=`target/psse 2>/dev/null <<EOF
 (progn
   (set! fact
     (lambda (n)
-    (cond ((= n 1) 1)
-      (t (* n (fact (- n 1)))))))
+      (cond ((= n 1) 1)
+        (t (* n (fact (- n 1)))))))
   nil)
 (fact 10)
 EOF`

unit-tests/try.sh

@@ -40,7 +40,7 @@ else
 fi
 
 echo -n "$0: the exception is bound to the symbol \`*exception*\` in the catch environment... "
-expected='Exception: "Cannot divide: not a number"'
+expected='Exception: ((:location . /) (:payload . "Cannot divide: not a number"))'
 actual=`echo "(try (:body (+ 2 (/ 1 'a))) (:catch *exception*))" | target/psse 2>&1 | grep Exception`
 
 if [ "${expected}" = "${actual}" ]