diff --git a/basis/core-text/core-text.factor b/basis/core-text/core-text.factor
index ad25e3adb0..2927862e26 100644
--- a/basis/core-text/core-text.factor
+++ b/basis/core-text/core-text.factor
@@ -164,6 +164,6 @@ M: line dispose* line>> CFRelease ;
 SYMBOL: cached-lines
 
 : cached-line ( font string -- line )
-    cached-lines get [ <line> ] 2cache ;
+    cached-lines get-global [ <line> ] 2cache ;
 
 [ <cache-assoc> cached-lines set-global ] "core-text" add-startup-hook
diff --git a/basis/ui/text/core-text/core-text.factor b/basis/ui/text/core-text/core-text.factor
index e864c828e8..ddde9fe7e3 100644
--- a/basis/ui/text/core-text/core-text.factor
+++ b/basis/ui/text/core-text/core-text.factor
@@ -15,7 +15,7 @@ M: core-text-renderer string-dim
     if-empty ;
 
 M: core-text-renderer flush-layout-cache
-    cached-lines get purge-cache ;
+    cached-lines get-global purge-cache ;
 
 M: core-text-renderer string>image ( font string -- image loc )
     cached-line [ line>image ] [ loc>> ] bi ;