From 10b0c09a25ca92a747fd88b6f800745ac3adcefd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 May 1999 21:06:39 +0000
Subject: [PATCH] .

original commit: 29f42f4e34e37d24b13e9e96f2a3ffc9574c051b
---
 collects/tests/mzscheme/unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index d34c889..a6f5440 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -498,7 +498,7 @@
 	    x
 	    (with-continuation-mark 
 	     b a 
-	     (current-continuation-marks b))
+	     (continuation-mark-set->list (current-continuation-marks) b))
 	    (interface? (interface (i)))
 	    (invoke-unit
 	     (unit