--- gforth/sokoban.fs	1997/02/16 20:51:11	1.3
+++ gforth/sokoban.fs	1998/05/02 21:28:43	1.4
@@ -118,6 +118,8 @@ Variable score     0 score !  \ total nu
 	S" &."  S" .&"  r@ play-rule  IF  r> soko +!  EXIT  THEN
 	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
 	-1 moves +!  r> drop  ;
 
 1            move: soko-right