From dc8c541117e693a73f45e34d72046dea9f18197a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Sep 2002 16:50:59 +0000
Subject: [PATCH] .

original commit: a83722fd5d78afd1da2d20f96924102489f4179b
---
 collects/mred/mred.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 94812a7f..fea1eea2 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2708,7 +2708,10 @@
 				     "result from place-children is not a list of 4-integer lists with the correct length: "
 				     l))
 	     (panel-redraw children children-info (if hidden-child
-						      (cons (list 0 0 width height) 
+						      (cons (list 0 0 width 
+								  (if (memq (system-type) '(macos macosx)) ;; Yucky hack
+								      (child-info-y-min (car children-info)) 
+								      height))
 							    (let ([dy (child-info-y-min (car children-info))])
 							      (map (lambda (i)
 								     (list (+ (car i) 2) ;; hack! 2-pixel border assumed