diff --git a/asys.lisp b/asys.lisp
index 6590d96..10063ae 100644
--- a/asys.lisp
+++ b/asys.lisp
@@ -30,7 +30,8 @@
   (setf state (+ state msg))
   (if (/= 0 state) 
     (forward state state syns env))
-  (lambda (msg) (cumulate msg state syns env)))
+  (actor:become 
+    (lambda (msg) (cumulate msg state syns env))))
 
 ;;;; publish/subscribe - pubsub service