From 381bc9351c9a7b15d40ef19d5541a75d640d6221 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 27 Aug 2008 04:47:52 +0000 Subject: [PATCH] PR 9712 svn: r11448 --- collects/drscheme/private/unit.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 7aacf84709..7faef49b55 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -202,7 +202,7 @@ module browser threading seems wrong. (define (find-symbol text pos) (send text split-snip pos) (send text split-snip (+ pos 1)) - (let ([snip (send text find-snip pos 'after-or-none)]) + (let ([snip (send text find-snip pos 'after)]) (if (is-a? snip string-snip%) (let* ([before (let loop ([i (- pos 1)]