X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-agenda.scm;h=628fb1e4ea80070555d691d07b2a3ed82726a98f;hp=f6a57c19fe63022004db363701b6f03908e6c264;hb=3622ea1468104f100b2ed5f6611f31785ed86814;hpb=ed0ef531945b62463f3dcd529930b73b06fc7ba4

diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm
index f6a57c1..628fb1e 100644
--- a/tests/test-agenda.scm
+++ b/tests/test-agenda.scm
@@ -369,9 +369,9 @@
   (speaker "Time for exception fun!\n")
   (let ((caught-exception #f))
     (catch-8sync
-     (%8sync (%run (if with-indirection
-                       (indirection-remote-func-breaks)
-                       (remote-func-breaks))))
+     (%8sync-run (if with-indirection
+                         (indirection-remote-func-breaks)
+                         (remote-func-breaks)))
       ('numerical-overflow
        (lambda (orig-stacks . orig-args)
          (set! caught-exception #t)