diff --git a/basis/ui/gadgets/glass/glass-tests.factor b/basis/ui/gadgets/glass/glass-tests.factor
index f5a5ea0b13..d4e4306656 100644
--- a/basis/ui/gadgets/glass/glass-tests.factor
+++ b/basis/ui/gadgets/glass/glass-tests.factor
@@ -1,6 +1,6 @@
 IN: ui.gadgets.glass.tests
 USING: tools.test ui.gadgets.glass ui.gadgets.worlds ui.gadgets
-math.rectangles namespaces accessors models ;
+math.rectangles namespaces accessors models sequences ;
 
 <gadget> "" f <model> <world>
 { 1000 1000 } >>dim
@@ -12,6 +12,6 @@ math.rectangles namespaces accessors models ;
 
 [ ] [ "g" get hide-glass ] unit-test
 
-[ f ] [ "g" get parent>> ] unit-test
+[ f ] [ "g" get parent>> parent>> ] unit-test
 
 [ t ] [ "w" get layers>> empty? ] unit-test
\ No newline at end of file
diff --git a/basis/ui/ui-tests.factor b/basis/ui/ui-tests.factor
index f7ed4579d4..4b4bf9d9ee 100644
--- a/basis/ui/ui-tests.factor
+++ b/basis/ui/ui-tests.factor
@@ -1,5 +1,5 @@
 IN: ui.tests
-USING: ui tools.test ;
+USING: ui ui.private tools.test ;
 
 \ open-window must-infer
 \ update-ui must-infer
\ No newline at end of file