diff --git a/basis/ui/gadgets/gadgets.factor b/basis/ui/gadgets/gadgets.factor
index 2d79a143dc..003ae083e8 100644
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@@ -87,9 +87,11 @@ M: gadget contains-point? ( loc gadget -- ? )
     [ contains-point? ] with find-last nip
     [ [ loc>> v- ] [ pick-up ] bi ] [ nip ] ?if ;
 
-: max-dims ( dims -- dim ) { 0 0 } [ vmax ] reduce ;
+: max-dims ( seq -- dim )
+    [ 0 0 ] dip [ first2 swapd [ max ] 2bi@ ] each 2array ;
 
-: sum-dims ( seq -- dim ) { 0 0 } [ v+ ] reduce ;
+: sum-dims ( seq -- dim )
+    [ 0 0 ] dip [ first2 swapd [ + ] 2bi@ ] each 2array ;
 
 : each-child ( gadget quot -- )
     [ children>> ] dip each ; inline