diff --git a/geesh/shell.scm b/geesh/shell.scm
index 50b76fd..dbc7a01 100644
--- a/geesh/shell.scm
+++ b/geesh/shell.scm
@@ -353,7 +353,7 @@ of each thunk sent to the input of the next thunk."
         (without-errexit test-thunk)
         (cond
          ((= (get-status) 0)
-          (thunk)
+          (call-with-continue thunk)
           (loop (get-status)))
          (else
           (set-status! last-status)))))))