diff --git a/creatur.cabal b/creatur.cabal
--- a/creatur.cabal
+++ b/creatur.cabal
@@ -1,5 +1,5 @@
 Name:              creatur
-Version:           5.7.3
+Version:           5.8.0
 Stability:         experimental
 Synopsis:          Framework for artificial life experiments.
 Description:       A software framework for automating experiments
@@ -36,7 +36,7 @@
 source-repository this
   type:     git
   location: https://github.com/mhwombat/creatur.git
-  tag:      5.7.3
+  tag:      5.8.0
 
 library
   GHC-Options:      -Wall -fno-warn-orphans
diff --git a/src/ALife/Creatur/Task.hs b/src/ALife/Creatur/Task.hs
--- a/src/ALife/Creatur/Task.hs
+++ b/src/ALife/Creatur/Task.hs
@@ -28,6 +28,7 @@
     startupHandler,
     shutdownHandler,
     exceptionHandler,
+    checkPopSize,
     requestShutdown
  ) where
 
@@ -64,9 +65,9 @@
 
 runNoninteractingAgents
   :: (Universe u, Serialize (Agent u))
-    => AgentProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO ()
+    => AgentProgram u -> StateT u IO () -> StateT u IO ()
       -> StateT u IO ()
-runNoninteractingAgents agentProgram popRange startRoundProgram
+runNoninteractingAgents agentProgram startRoundProgram
     endRoundProgram = do
   atStartOfRound startRoundProgram
   as <- lineup
@@ -76,7 +77,6 @@
     -- do that first in case the next line triggers an exception
     withAgent agentProgram a
     atEndOfRound endRoundProgram
-    checkPopSize popRange
 
 --   The input parameter is a list of agents. The first agent in the
 --   list is the agent whose turn it is to use the CPU. The rest of
@@ -89,9 +89,9 @@
 
 runInteractingAgents
   :: (Universe u, Serialize (Agent u))
-    => AgentsProgram u -> (Int, Int) -> StateT u IO () -> StateT u IO ()
+    => AgentsProgram u -> StateT u IO () -> StateT u IO ()
       -> StateT u IO ()
-runInteractingAgents agentsProgram popRange startRoundProgram
+runInteractingAgents agentsProgram startRoundProgram
     endRoundProgram = do
   atStartOfRound startRoundProgram
   as <- lineup
@@ -99,7 +99,6 @@
   -- do that first in case the next line triggers an exception
   withAgents agentsProgram as
   atEndOfRound endRoundProgram
-  checkPopSize popRange
 
 checkPopSize :: Universe u => (Int, Int) -> StateT u IO ()
 checkPopSize (minAgents, maxAgents) = do