*** no comment ***

diff --git a/chess-gnuchess.el b/chess-gnuchess.el
index 373cac8d59151f60b89eaad569789fa22a9077db..1d8717353456181a609a15c158cfeb0f456cec9c 100644 (file)
--- a/chess-gnuchess.el
+++ b/chess-gnuchess.el
@@ -88,8 +88,9 @@
     (unless chess-gnuchess-now-moving
       (chess-engine-send nil (concat (chess-ply-to-algebraic (car args))
                                     "\n"))
-      (if chess-gnuchess-bad-board
-         (chess-engine-send nil "go\n"))))))
+      (when chess-gnuchess-bad-board
+       (chess-engine-send nil "go\n")
+       (setq chess-gnuchess-bad-board nil))))))
 
 (provide 'chess-gnuchess)