diff --git a/extra/math/geometry/rect/rect.factor b/extra/math/geometry/rect/rect.factor
index c04d4011b2..862d50c5cd 100644
--- a/extra/math/geometry/rect/rect.factor
+++ b/extra/math/geometry/rect/rect.factor
@@ -1,11 +1,11 @@
 
-USING: kernel arrays math.vectors math.geometry ;
+USING: kernel arrays sequences math.vectors math.geometry accessors ;
 
 IN: math.geometry.rect
 
 TUPLE: rect loc dim ;
 
-: init-rect ( rect -- rect ) { 0 0 } clone { 0 0 } clone <rect> ;
+: init-rect ( rect -- rect ) { 0 0 } clone >>loc { 0 0 } clone >>dim ;
 
 : <rect> ( loc dim -- rect ) rect boa ;