Index: main/window/screen.lisp
===================================================================
--- main/window/screen.lisp	(revision main,29)
+++ main/window/screen.lisp	(revision main,41)
@@ -31,5 +31,5 @@
     `(let ((,ptr (initscr)))
        (when (null-pointer-p ,ptr)
-         (signal 'screen-initialization-error))
+         (error 'screen-initialization-error))
        (unwind-protect
             (start-color)
@@ -64,5 +64,5 @@
   (let ((ptr (derwin (window-pointer w) height width y x)))
     (when (null-pointer-p ptr)
-      (signal 'screen-window-creation-error))
+      (error 'screen-window-creation-error))
     (make-instance 'screen-window :ptr ptr)))
 
@@ -70,5 +70,5 @@
   (with-slots (ptr) w
     (when (= (delwin ptr) +err+)
-      (signal 'screen-window-destruction-error)))
+      (error 'screen-window-destruction-error)))
   (values))
 
@@ -79,5 +79,5 @@
     `(let ((,ptr (newwin ,height ,width ,y ,x)))
        (when (null-pointer-p ,ptr)
-         (signal 'screen-window-creation-error))
+         (error 'screen-window-creation-error))
        (let ((,window (make-instance 'screen-window :ptr ,ptr)))
          (unwind-protect (progn ,@body)