Index: botsoc.scm
==================================================================
--- botsoc.scm
+++ botsoc.scm
@@ -333,10 +333,10 @@
 	  (i (punct) " #checkmate" (atheists))
 	  (i (punct) " #CheckmateAtheists")
 	  (i (punct) " #CheckmateAthiests"))
 
 (define (checkmate-athiests i)
-	(if (eqv? (random-integer 20) 0)
+	(if (eqv? (random-integer 9) 0)
 		(checkmate-atheists i) ; else
 		i))
 
 (print (checkmate-athiests (statement (ideology))) "\n")