diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt
index 211c5f7a0d..64cf8aa8bd 100644
--- a/collects/drracket/private/module-language.rkt
+++ b/collects/drracket/private/module-language.rkt
@@ -1802,8 +1802,8 @@
               (define fore (send dc get-text-foreground))
               (send dc set-font defs/ints-font)
               (define-values (tw th _1 _2) (send dc get-text-extent id))
-              (define tx (- (unbox bw) tw))
-              (define ty (- (unbox bh) th))
+              (define tx (+ (unbox bx) (- (unbox bw) tw)))
+              (define ty (+ (unbox by) (- (unbox bh) th)))
               (when (and (or (< left tx right)
                              (< left (+ tx tw) right))
                          (or (< top ty bottom)