diff --git a/contrib/x11/concurrent-widgets.factor b/contrib/x11/concurrent-widgets.factor
index d7427dc485..9f639e7d67 100644
--- a/contrib/x11/concurrent-widgets.factor
+++ b/contrib/x11/concurrent-widgets.factor
@@ -23,7 +23,9 @@ TUPLE: window display id ;
 
 SYMBOL: window-table
 
-10 <hashtable> window-table set
+! 10 <hashtable> window-table set
+
+10 <hashtable> window-table set-global
 
 : add-to-window-table ( <window> -- )
 dup window-id window-table get set-hash ;
diff --git a/contrib/x11/gl.factor b/contrib/x11/gl.factor
index 3ebe83ce38..679b92cdb9 100644
--- a/contrib/x11/gl.factor
+++ b/contrib/x11/gl.factor
@@ -1,7 +1,11 @@
 IN: gl USING: kernel words sequences alien arrays namespaces x xlib x11 ;
 
+! : >int-array ( seq -- <int-array> )
+! dup length "int-array" <c-object> swap dup length >array
+! [ pick set-int-nth ] 2each ;
+
 : >int-array ( seq -- <int-array> )
-dup length "int-array" <c-object> swap dup length >array [ pick set-int-nth ] 2each ;
+dup length "int" <c-array> swap dup length >array [ pick set-int-nth ] 2each ;
 
 : >attributes ( seq -- attributes )
 0 add [ dup word? [ execute ] [ ] if ] map ;