From 1ec7b50d1fba41aee2c50f062fdbaabf586b8f96 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 5 Sep 2006 06:58:19 +0000
Subject: [PATCH] fix ephemeron bug in non-3m

svn: r4239
---
 src/mzscheme/src/list.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/list.c b/src/mzscheme/src/list.c
index cf55b689d1..5c00386131 100644
--- a/src/mzscheme/src/list.c
+++ b/src/mzscheme/src/list.c
@@ -1842,7 +1842,7 @@ static void set_ephemerons(Scheme_Ephemeron *ae, Scheme_Ephemeron *be)
   if (be) {
     Scheme_Ephemeron *e;
     for (e = be; e->next; e = e->next) { }
-    be->next = ae;
+    e->next = ae;
     ae = be;
   }