From 80e3f7d7d7bc2838ab4d2e20b49ed1e040bf78c1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 21 Apr 2003 13:26:48 +0000
Subject: [PATCH] .

original commit: 2ce1a0ca3b39226e74388b36e3e20e14b5bb7d30
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index ea0e95e3..be1f7035 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2058,7 +2058,7 @@
     (define/public (delete i)
       (as-entry
        (lambda ()
-	 (set! tabs (let loop ([pos 0][l tabs])
+	 (set! tabs (let loop ([pos 0][tabs tabs])
 		      (if (= i pos)
 			  (cdr tabs)
 			  (cons (car tabs) (loop (add1 pos) (cdr tabs))))))