From e203300576b4f8824f3a718ecf19faca5eec944a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 7 Apr 1999 17:25:37 +0000
Subject: [PATCH] .

original commit: bdd66a25411d21ec179c84a38b8cf469d57aa30c
---
 collects/tests/mred/item.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index f41fd42d..f0965ed3 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -1425,7 +1425,9 @@
 		       (send dc draw-line 0 vh vw vh)
 		       (send dc draw-line vw 0 vw vh))))]
 		[on-scroll
-		 (lambda (e) (unless (and auto? incremental?) (on-paint)))]
+		 (lambda (e) 
+		   (when auto? (printf "Hey - on-scroll called for auto scrollbars~n"))
+		   (unless incremental? (on-paint)))]
 		[init-auto-scrollbars (lambda x
 					(set! auto? #t)
 					(apply super-init-auto-scrollbars x))]