diff --git a/src/stoe.lisp b/src/stoe.lisp
index ed60152..02054ce 100644
--- a/src/stoe.lisp
+++ b/src/stoe.lisp
@@ -32,5 +32,6 @@ continue unless `unprotected' is t."
 (defun main (&optional argv)
   "Run the program."
   (modules:initialize argv)
-  (main-loop)
-  (modules:finalize))
+  (unwind-protect
+       (main-loop)
+    (modules:finalize)))