--- sokoban.fs.orig	Tue May  5 02:04:25 1998
+++ sokoban.fs	Mon Apr 10 22:35:30 2000
@@ -119,7 +119,7 @@
 	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