diff --git a/creatur.cabal b/creatur.cabal
--- a/creatur.cabal
+++ b/creatur.cabal
@@ -1,5 +1,5 @@
 Name:              creatur
-Version:           4.3.2
+Version:           4.3.3
 Stability:         experimental
 Synopsis:          Framework for artificial life experiments.
 Description:       A software framework for automating experiments
diff --git a/src/ALife/Creatur/Daemon.hs b/src/ALife/Creatur/Daemon.hs
--- a/src/ALife/Creatur/Daemon.hs
+++ b/src/ALife/Creatur/Daemon.hs
@@ -40,14 +40,15 @@
     onStartup :: s -> IO s,
     onShutdown :: s -> IO (),
     onException :: s -> SomeException -> IO s,
+    -- | The agent task.
     task :: StateT s IO (),
     username :: String,
+    -- | Number of microseconds to sleep between agent tasks.
     sleepTime :: Int
   }
 
--- | @'launch' username sleepTime state task@ creates a daemon
---   running as @username@, which invokes @task@ repeatedly, sleeping 
---   for @sleepTime@ microseconds between invocations of @task@.
+-- | @'launch' daemon state@ creates a daemon running under the current
+--   user's real userID, which invokes @task@.
 launch :: Daemon s -> s -> IO ()
 launch d s = do
   uid <- getRealUserID
diff --git a/src/ALife/Creatur/Universe/Task.hs b/src/ALife/Creatur/Universe/Task.hs
--- a/src/ALife/Creatur/Universe/Task.hs
+++ b/src/ALife/Creatur/Universe/Task.hs
@@ -50,10 +50,10 @@
 import Data.Maybe (catMaybes)
 import Data.Serialize (Serialize)
 
-simpleDaemon :: Logger u => Daemon u
-simpleDaemon = Daemon
+simpleDaemon :: Logger u => String -> Daemon u
+simpleDaemon version = Daemon
   {
-    onStartup = startupHandler,
+    onStartup = startupHandler version,
     onShutdown = shutdownHandler,
     onException = exceptionHandler,
     task = undefined,
@@ -61,8 +61,8 @@
     sleepTime = 100000
   }
 
-startupHandler :: Logger u => u -> IO u
-startupHandler = execStateT (writeToLog "Starting")
+startupHandler :: Logger u => String -> u -> IO u
+startupHandler version = execStateT (writeToLog $ "Starting " ++ version)
 
 shutdownHandler :: Logger u => u -> IO ()
 shutdownHandler u = do