From 1993288ce2bbc32b98d88bf1cadec4889be04800 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 12 Aug 2008 15:28:42 +0000
Subject: [PATCH] fix clean-up of GCed log readers

svn: r11202
---
 src/mzscheme/src/error.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mzscheme/src/error.c b/src/mzscheme/src/error.c
index 25c02bff50..6b9796696c 100644
--- a/src/mzscheme/src/error.c
+++ b/src/mzscheme/src/error.c
@@ -2672,6 +2672,7 @@ void update_want_level(Scheme_Logger *logger)
         if (lr) {
           if (lr->want_level > want_level)
             want_level = lr->want_level;
+          prev = queue;
         } else {
           if (prev)
             SCHEME_CDR(prev) = SCHEME_CDR(queue);