diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index 56f2ce77ac..019faeb5d6 100644
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -85,8 +85,8 @@ M: pasteboard set-clipboard-contents
     #! after register-window.
     dup { 0 0 } = [
         drop
-        windows get-global length 1 <= [ -> center ] [
-            windows get-global last second window-loc>>
+        ui-windows get-global length 1 <= [ -> center ] [
+            ui-windows get-global last second window-loc>>
             dupd first2 <CGPoint> -> cascadeTopLeftFromPoint:
             -> setFrameTopLeftPoint:
         ] if