diff --git a/basis/ui/backend/gtk/gtk.factor b/basis/ui/backend/gtk/gtk.factor
index 23d53b9211..c5e8667dbb 100644
--- a/basis/ui/backend/gtk/gtk.factor
+++ b/basis/ui/backend/gtk/gtk.factor
@@ -14,12 +14,10 @@ IN: ui.backend.gtk
 
 SINGLETON: gtk-ui-backend
 
-TUPLE: window-handle window fullscreen? im-context ;
+TUPLE: window-handle window im-context fullscreen? ;
 
 : <window-handle> ( window im-context -- window-handle )
-    window-handle new
-        swap >>im-context
-        swap >>window ;
+    f window-handle boa ;
 
 : connect-signal-with-data ( object signal-name callback data -- )
     [ utf8 string>alien ] 2dip g_signal_connect drop ;