diff --git a/fcore/text-builder.sml b/fcore/text-builder.sml
index 5fe9f15..b9e1462 100644
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -178,7 +178,7 @@ struct
                 , 5, 5, 5
                 , windowWidth, windowHeight
                 , Real32.fromInt windowWidth, Real32.fromInt windowHeight
-                , 0.0, 0.0, 0.0
+                , 0.67, 0.51, 0.83
                 , rStrTl
                 )
             end
diff --git a/shell/gl-draw.sml b/shell/gl-draw.sml
index b8be1e3..aadca30 100644
--- a/shell/gl-draw.sml
+++ b/shell/gl-draw.sml
@@ -125,7 +125,7 @@ struct
         let
           val shellState = consumeDrawEvents shellState
 
-          val _ = Gles3.clearColor (1.0, 1.0, 1.0, 1.0)
+          val _ = Gles3.clearColor (0.087, 0.095, 0.13, 1.0)
           val _ = Gles3.clear ()
 
           val _ = draw shellState
diff --git a/shf b/shf
index c6aa588..3e2b52a 100755
Binary files a/shf and b/shf differ