diff --git a/test-asys.lisp b/test-asys.lisp
index 7c89886..3a8e918 100644
--- a/test-asys.lisp
+++ b/test-asys.lisp
@@ -5,7 +5,7 @@
 (defun probe (msg state syns env)
   (let ((t:*test-suite* env))
     (== (actor:content msg) (pop state))
-    (lambda (msg) (probe msg state syns env))
+    (actor:become (lambda (msg) (probe msg state syns env)))
   ))
 
 (defun test-asys ()