diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index cba6a9cda8..d1f4f31c0e 100644
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -397,7 +397,7 @@ CLASS: FactorWindowDelegate < NSObject
         notification -> object dup SEL: backingScaleFactor
         -> respondsToSelector: c-bool> [
             SEND: backingScaleFactor execute( x x -- x )
-            [ gl-scale-factor set-global ]
+            [ [ 1.0 > ] keep f ? gl-scale-factor set-global ]
             [ 1.0 > retina? set-global ] bi
         ] [ drop ] if
     ]