Index: main/window/screen.lisp
===================================================================
--- main/window/screen.lisp	(revision main,48)
+++ main/window/screen.lisp	(revision main,82)
@@ -33,10 +33,11 @@
          (error 'screen-initialization-error))
        (unwind-protect
-            (start-color)
-            (dotimes (i 63)
-              (let ((j (1+ i)))
-                (init-pair j (mod j 8) (floor j 8))))
-            (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
-              ,@body)
+            (progn
+              (start-color)
+              (dotimes (i 63)
+                (let ((j (1+ i)))
+                  (init-pair j (mod j 8) (floor j 8))))
+              (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
+                ,@body))
          (endwin)))))