X-Git-Url: https://git.distorted.org.uk/~mdw/atoms/blobdiff_plain/6f866d5383a5ff01964b17f524d976598fbd9c09..752d65992326e4758e1d5a7ed7df5f911fbf0d1c:/atoms.lisp

diff --git a/atoms.lisp b/atoms.lisp
index e1c331c..0855c84 100644
--- a/atoms.lisp
+++ b/atoms.lisp
@@ -290,7 +290,7 @@
 	       (state (player-state player)))
 	  (cond ((and (zerop score) (eql state :playing))
 		 (setf (player-state player) :losing))
-		((member state '(:playing :starting))
+		((member state '(:playing :starting :ready))
 		 (incf remaining)
 		 (setf found player)))))
       (changed game :scores :players players)