diff --git a/secrets b/secrets
index 41f6850..87cc230 100755
--- a/secrets
+++ b/secrets
@@ -219,7 +219,11 @@ EOF
                               (handle-stdin stdin phase-channel basedir files)))])
         
         (thread-wait stderr-thread)
-        (thread-wait stdin-thread))))
+        (thread-wait stdin-thread))
+      (subprocess-wait sp)
+      (let ([status (subprocess-status sp)])
+        (unless (equal? status 0)
+          (exit 1)))))
   
   (void))