diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 0fca412d1f..7f00084104 100755
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -60,10 +60,10 @@ M: gadget draw-selection ( loc gadget -- )
     swap offset-rect [ rect-extent gl-fill-rect ] if-fits ;
 
 M: node draw-selection ( loc node -- )
-    2dup node-value swap offset-rect [
+    2dup value>> swap offset-rect [
         drop 2dup
-        [ node-value rect-loc v+ ] keep
-        node-children [ draw-selection ] with each
+        [ value>> rect-loc v+ ] keep
+        children>> [ draw-selection ] with each
     ] if-fits 2drop ;
 
 M: pane draw-gadget*
diff --git a/basis/ui/traverse/traverse.factor b/basis/ui/traverse/traverse.factor
index 791bad4e0f..440f6487c2 100644
--- a/basis/ui/traverse/traverse.factor
+++ b/basis/ui/traverse/traverse.factor
@@ -77,7 +77,7 @@ DEFER: (gadget-subtree)
     [ (gadget-subtree) ] { } make ;
 
 M: node gadget-text*
-    dup node-children swap node-value gadget-seq-text ;
+    dup children>> swap value>> gadget-seq-text ;
 
 : gadget-text-range ( frompath topath gadget -- str )
     gadget-subtree gadget-text ;