core-text: better check.

diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index 6f9a7d9dbd9ffb81546bff940bc167e503047f9d..356f2d9f83904117311d207affd3e80f43c21fdf 100644 (file)
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -117,7 +117,7 @@ render-loc render-dim ;
 :: <line> ( font string -- line )
     [
         line new-disposable
-        font retina? [ cache-font@2x ] [ cache-font ] if :> open-font
+        font retina? get-global [ cache-font@2x ] [ cache-font ] if :> open-font
         string open-font font foreground>> <CTLine> |CFRelease :> line
         open-font line compute-line-metrics
         [ >>metrics ] [ metrics>dim >>dim ] bi