diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 08f27c76d2..c48b0a5224 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -5,6 +5,7 @@
 ]
 
 - x11: rollover highlight is not reliable
+- x11: window positioning not reliable
 + httpd:
   - outliners don't work
   - browser responder doesn't work
diff --git a/library/ui/cocoa/utilities.factor b/library/ui/cocoa/utilities.factor
index 7574153931..f2420dd7e3 100644
--- a/library/ui/cocoa/utilities.factor
+++ b/library/ui/cocoa/utilities.factor
@@ -27,10 +27,10 @@ H{ } clone super-msg-senders set-global
 
 : (cache-stub) ( method function hash -- word )
     [
-        over second get dup [
+        over get dup [
             2nip
         ] [
-            drop over >r sender-stub dup r> second set
+            drop over >r sender-stub dup r> set
         ] if
     ] bind ;