diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 96946ac3..1463dc4c 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -3587,7 +3587,7 @@
 	      [abox (box 0)])
 	  ; To bottom of first line
 	  (send (send e get-admin) get-dc #f ybox)
-	  (set! dy (+ -2 (abs (unbox ybox)) (send e line-location 0 #f))) ; -2 is fudge factor
+	  (set! dy (+ (abs (unbox ybox)) (send e line-location 0 #f)))
 	    
 	  ; Add diff for client size
 	  (send c get-client-size wbox hbox)