diff --git a/main.fs b/main.fs
index 14715fd..28c7f7a 100644
--- a/main.fs
+++ b/main.fs
@@ -241,7 +241,7 @@ S" you feel like throwing some stuff into the pool." set-message
 	draw-constructs cr
 	." (q)uit (without saving)"
 	\ add 1 to y
-	1 + ;
+	inc-y ;
 
 \ clear-xy clears the x and y positions from the stack
 : clear-xy ( x y -- ) drop drop ;