diff --git a/collects/framework/text.ss b/collects/framework/text.ss
index 0ca2a663..642fc321 100644
--- a/collects/framework/text.ss
+++ b/collects/framework/text.ss
@@ -223,7 +223,7 @@
 					       (and (<= (max (abs (- (send rc red) (send tmpc red)))
 							     (abs (- (send rc blue) (send tmpc blue)))
 							     (abs (- (send rc green) (send tmpc green))))
-							15)
+							50)
 						    rc))
 					rc))]
 			   [first-number (lambda (x y) (if (number? x) x y))]