X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-actors.scm;h=15191c4bbbc00b6582f9ffb643d33a5d119b2a07;hp=2b5298c81e7e73059a7f46950cfcceabf928667d;hb=5985528115e276d273a6a4bb1df57c93cab61f84;hpb=18e24b7dbf68db605ae8303120e6ee7b4258837a

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 2b5298c..15191c4 100644
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -126,12 +126,9 @@
    (~display "lazy-rep> I'm not answering that.\n")))
 
 (let* ((hive (make-hive))
-       (customer (hive-create-actor hive <antsy-caller>
-                                    #:id-cookie "antsy-caller"))
-       (diligent-rep (hive-create-actor hive <diligent-rep>
-                                        #:id-cookie "diligent-rep"))
-       (lazy-rep (hive-create-actor hive <lazy-rep>
-                                    #:id-cookie "lazy-rep")))
+       (customer (hive-create-actor* hive <antsy-caller> "antsy-caller"))
+       (diligent-rep (hive-create-actor* hive <diligent-rep> "diligent-rep"))
+       (lazy-rep (hive-create-actor* hive <lazy-rep> "lazy-rep")))
   ;; * Playing a tape of a diligent service rep *
   (parameterize ((%record-out (open-output-string)))
     (let* ((result (ez-run-hive