1 files changed, 2 insertions, 2 deletions
diff --git a/slsets.scm b/slsets.scm
index d5f4020..ce8f67c 100644
--- a/slsets.scm
+++ b/slsets.scm
@@ -191,8 +191,8 @@
     (dynamic-wind
         (lambda () (mark-list! (reified-slset-list rs) marking))
         (lambda ()
-          (fun rs)
-          (reified-slset-list rs))
+          (receive res (fun rs)
+            (apply values (reified-slset-list rs) res)))
         (lambda () (unmark-list! (reified-slset-list rs) marking)))))
 
 (define (reified-slset-adjoin! rs . els)