diff --git a/collects/framework/frame.ss b/collects/framework/frame.ss
index 37dab2fc..f7129ffc 100644
--- a/collects/framework/frame.ss
+++ b/collects/framework/frame.ss
@@ -400,8 +400,8 @@
 	     (let* ([edit (get-info-editor)]
 		    [make-one
 		     (lambda (pos)
-		       (let* ([line (send edit position-line pos)]
-			      [line-start (send edit line-start-position line)]
+		       (let* ([line (send edit position-paragraph pos)]
+			      [line-start (send edit paragraph-start-position line)]
 			      [char (- pos line-start)])
 			 (if line-numbers?
 			     (format "~a:~a"