diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index e7b3bb23..58ab970e 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -819,7 +819,6 @@ WARNING: printf is rebound in the body of the unit to always
           set-unread-start-point
           set-allow-edits
           get-allow-edits
-          has-between?
           insert-between
           submit-to-port?
           on-submit
@@ -886,12 +885,6 @@ WARNING: printf is rebound in the body of the unit to always
             (insert str unread-start-point unread-start-point)
             (set! unread-start-point (+ unread-start-point (string-length str))))
           
-          ;; has-between? : -> boolean
-          ;; indicates if there is currently some text after the insertion
-          ;; point, but before the unread region
-          (define/public-final (has-between?)
-            (not (= insertion-point unread-start-point)))
-          
           (define/public-final (get-insertion-point) insertion-point)
           (define/public-final (set-insertion-point ip) (set! insertion-point ip))
           (define/public-final (get-unread-start-point) unread-start-point)