diff --git a/extra/math/geometry/geometry.factor b/extra/math/geometry/geometry.factor
index c331192a4b..f70864aba3 100644
--- a/extra/math/geometry/geometry.factor
+++ b/extra/math/geometry/geometry.factor
@@ -4,5 +4,5 @@ IN: math.geometry
 GENERIC: width  ( object -- width )
 GENERIC: height ( object -- width )
 
-GENERIC: set-x! ( object x -- object )
-GENERIC: set-y! ( object x -- object )
\ No newline at end of file
+GENERIC# set-x! 1 ( object x -- object )
+GENERIC# set-y! 1 ( object y -- object )
\ No newline at end of file
diff --git a/extra/math/geometry/rect/rect.factor b/extra/math/geometry/rect/rect.factor
index 862d50c5cd..d5b83e2715 100644
--- a/extra/math/geometry/rect/rect.factor
+++ b/extra/math/geometry/rect/rect.factor
@@ -46,4 +46,4 @@ M: rect width  ( rect -- width  ) dim>> first  ;
 M: rect height ( rect -- height ) dim>> second ;
 
 M: rect set-x! ( rect x -- rect ) over loc>> set-first  ;
-M: rect set-y! ( rect y -- rect ) over loc>> set-second ;
\ No newline at end of file
+M: rect set-y! ( rect y -- rect ) over loc>> set-second ;