From 8e8e3f035719acbdb0a26928bc9595f4223b13db Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 4 Feb 1999 22:26:24 +0000
Subject: [PATCH] ...

original commit: a618a1fd4f410d801093c7a4d73c10f871c2add5
---
 collects/framework/scheme.ss | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/collects/framework/scheme.ss b/collects/framework/scheme.ss
index d832f2ee..8828a70e 100644
--- a/collects/framework/scheme.ss
+++ b/collects/framework/scheme.ss
@@ -113,7 +113,7 @@
 	      (lambda (comment-start)
 		(let ([f (find-string comment-start 'backward position)])
 		  (if f
-		      (= (send position-line f) line)
+		      (= (position-line f) line)
 		      #f)))
 	      (scheme-paren:get-comments))))])
       (private
@@ -227,10 +227,12 @@
 			   [there (get-end-position)]
 			   [slash?
 			    (lambda (before after)
-			      (let ([text (get-text before after)])
-				(and (string=? text)
-				     (>= (string-length text) 1)
-				     (char=? #\\ (string-ref text 0)))))]
+			      (and (>= before 0)
+				   (>= after 0)
+				   (let ([text (get-text before after)])
+				     (and (string? text)
+					  (>= (string-length text) 1)
+					  (char=? #\\ (string-ref text 0))))))]
 			   [is-paren?
 			    (lambda (f)
 			      (lambda (char)