Make use of %8sync-run in tests

[8sync.git] / tests / test-agenda.scm

diff --git a/tests/test-agenda.scm b/tests/test-agenda.scm
index f6a57c19fe63022004db363701b6f03908e6c264..628fb1e4ea80070555d691d07b2a3ed82726a98f 100644 (file)
--- 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)