Index: main/window/screen.lisp
===================================================================
--- main/window/screen.lisp	(revision main,41)
+++ main/window/screen.lisp	(revision main,48)
@@ -36,5 +36,5 @@
             (dotimes (i 63)
               (let ((j (1+ i)))
-                (init-pair j (floor j 8) (mod j 8))))
+                (init-pair j (mod j 8) (floor j 8))))
             (let ((,screen (make-instance 'screen-window :ptr ,ptr)))
               ,@body)