From 8b02872f55106811c425e0b3285dc38c4888201a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Mar 2001 16:09:08 +0000
Subject: [PATCH] .

original commit: 7aaf9f527da1271450f60ad733b86cbefe0908bb
---
 collects/mred/mred.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 83f417df..d568f44e 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -2508,7 +2508,7 @@
 				(lambda (s) (major-offset s))
 				car    ; child-info-x-min
 				caddr  ; child-info-x-stretch
-				(lambda (s) (minor-offset s))
+				(lambda (s t) (minor-offset s t))
 				(lambda (width height) height)
 				(lambda (width height) width)
 				(lambda (major minor) minor)
@@ -2752,7 +2752,7 @@
       (entry-point
        (case-lambda
 	[() (send (get-obj) method)]
-	[(v) (send (get-obj) method)])))]))
+	[(v) (send (get-obj) method v)])))]))
 
 (define (constructor-name who)
   (string->symbol (format "initialization for ~a%" who)))