diff --git a/collects/sgl/init.rkt b/collects/sgl/init.rkt
index b1e59487ad..1451f7a850 100644
--- a/collects/sgl/init.rkt
+++ b/collects/sgl/init.rkt
@@ -38,7 +38,7 @@
                       AGL_PIXEL_SIZE 32
                       AGL_OFFSCREEN
                       AGL_NONE))])
-      (and fmt
+      (when fmt
            (let ([d (aglCreateContext fmt #f)])
              (when d
                (void (aglSetCurrentContext d))))))))