--- gforth/sokoban.fs	2003/03/09 12:54:33	1.5
+++ gforth/sokoban.fs	2003/09/15 16:09:02	1.7
@@ -1,6 +1,6 @@
 \ sokoban - a maze game in FORTH
 
-\ Copyright (C) 1995,1997,1998 Free Software Foundation, Inc.
+\ Copyright (C) 1995,1997,1998,2003 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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