From 8a0e0d746373b7e6263a61c67ca60205aab44556 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 31 Jan 2005 15:46:39 +0000
Subject: [PATCH] .

original commit: dc14c63af55cf131bd87facf90eb797bec976a76
---
 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 f5f81927..1cc4cca4 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -1984,7 +1984,7 @@
       (list this (+ x (get-init-x)) y (get-total-width) tab-height))
     (define/public (number) (length tabs))
     
-    (define (draw-once dc w light? dark? inset)
+    (define/private (draw-once dc w light? dark? inset)
       (let ([init-x (get-init-x)])
 	(let loop ([x init-x][l tabs][wl tab-widths][pos 0])
 	  (if (null? l)