diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt
index dcdcadc89d..683ce10775 100644
--- a/collects/drracket/private/module-language.rkt
+++ b/collects/drracket/private/module-language.rkt
@@ -24,7 +24,8 @@
          "drsig.rkt"
          "rep.rkt"
          "eval-helpers.rkt"
-         "local-member-names.rkt")
+         "local-member-names.rkt"
+         "rectangle-intersect.rkt")
 
 (define-runtime-path expanding-place.rkt "expanding-place.rkt")
 
diff --git a/collects/drracket/private/rectangle-intersect.rkt b/collects/drracket/private/rectangle-intersect.rkt
new file mode 100644
index 0000000000..ef0f318624
--- /dev/null
+++ b/collects/drracket/private/rectangle-intersect.rkt
@@ -0,0 +1,12 @@
+#lang racket/base
+(provide rectangles-intersect?)
+
+(define (rectangles-intersect? l1 t1 r1 b1 l2 t2 r2 b2)
+  (or (point-in-rectangle? l1 t1 l2 t2 r2 b2)
+      (point-in-rectangle? r1 t1 l2 t2 r2 b2)
+      (point-in-rectangle? l1 b1 l2 t2 r2 b2)
+      (point-in-rectangle? r1 b1 l2 t2 r2 b2)))
+
+(define (point-in-rectangle? x y l t r b)
+  (and (<= l x r)
+       (<= t y b)))