*** no comment ***

4 files changed, 6 insertions, 5 deletions

diff --git a/TODO b/TODO
index d105a1c..43ed1d0 100644
--- a/TODO
+++ b/TODO
@@ -19,7 +19,7 @@
   related to the given letter
 
 - modify displays and engines so they ONLY keep game objects; thus
-  set-start-position now is just set-position
+  set-start-position would become just set-position
 
 - distinguish between chess-display-set-game and
   chess-display-set-game*.  The latter detaches and sets a new game
@@ -40,7 +40,7 @@
 - for network transports, if an illegal move is encountered, report
   this with "illegal move: REASON"
 
-- incorporate any .wav files from xchat's sounds that chess-sound
+- incorporate the .wav files from xchat's sounds that chess-sound
   currently doesn't have
 
 - in chess-engine-filter and chess-ics-filter, if an error is
diff --git a/chess-engine.el b/chess-engine.el
index b097fe3..f90c504 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -120,7 +120,9 @@
 	       (format "Do you wish to play a chess game against an anonymous opponent? ")))
 	    (progn
 	      (let ((chess-engine-handling-event t))
-		(chess-game-set-data game 'active t))
+		(unless game
+		  (setq game (chess-engine-set-game nil (chess-game-create))))
+		(chess-engine-set-start-position nil))
 	      (chess-engine-command nil 'accept))
 	  (chess-engine-command nil 'decline)))
       t)
diff --git a/chess-ply.el b/chess-ply.el
index 845ff00..ea6e0ac 100644
--- a/chess-ply.el
+++ b/chess-ply.el
@@ -44,6 +44,7 @@
 
 ;;; Code:
 
+(require 'cl)
 (require 'chess-pos)
 
 (defgroup chess-ply nil
diff --git a/chess.el b/chess.el
index 15ba238..b2359ee 100644
--- a/chess.el
+++ b/chess.el
@@ -73,8 +73,6 @@ a0 243
 ;; interface commands available in each of those buffer types.
 
 ;;; Code:
-(require 'cl)
-
 
 (require 'chess-game)
 (require 'chess-display)