diff --git a/src/clj/joy/sim_test.clj b/src/clj/joy/sim_test.clj
index 7c339c1..8e0ac65 100644
--- a/src/clj/joy/sim_test.clj
+++ b/src/clj/joy/sim_test.clj
@@ -72,9 +72,11 @@
 (def agent-for-player
   (memoize
    (fn [player-name]
-     (-> (agent [])
-         (set-error-handler! #(println "ERROR: " %1 %2))
-         (set-error-mode! :fail)))))
+     (let [a (agent [])]
+       (set-error-handler! a #(println "ERROR: " %1 %2))
+       (set-error-mode! a :fail)
+       a))))
+
 
 (defn feed [db event]
   (let [a (agent-for-player (:player event))]