--- gforth/sokoban.fs	2003/03/09 15:16:52	1.6
+++ gforth/sokoban.fs	2003/09/15 16:09:02	1.7
@@ -137,7 +137,7 @@ Variable score     0 score !  \ total nu
 	S" &* " S" .&$" r@ play-rule
 	      IF  r> soko +!  1 rocks +! -1 score +!  EXIT  THEN
 	S" &$." S" .@*" r@ play-rule
-	      IF  r> soko +!  1 rocks +! -1 score +!  EXIT  THEN
+	      IF  r> soko +! -1 rocks +!  1 score +!  EXIT  THEN
 	-1 moves +!  r> drop  ;
 
 1            move: soko-right