diff --git a/collects/mrlib/graph.ss b/collects/mrlib/graph.ss
index 736a78dd..d1a16ee8 100644
--- a/collects/mrlib/graph.ss
+++ b/collects/mrlib/graph.ss
@@ -396,10 +396,11 @@
                                           (max lt rt lf rf) (max tt bt tf bf))
                            (not (strict-in-rectangle? point-x point-y 
                                                       (min lt rt) (min tt bt) 
-                                                      (max lt rt) (max tt bt))
+                                                      (max lt rt) (max tt bt)))
+
                            (not (strict-in-rectangle? point-x point-y
                                                       (min lf rf) (min tf bf)
-                                                      (max lf rf) (max tf bf))))))
+                                                      (max lf rf) (max tf bf)))))
                     (update-polygon from-x from-y to-x to-y)
                     (cond
                       [(or (in-rectangle? from-x from-y lt tt rt bt)