From d7029f6406c7d92e386281b8554261c7b519c8c9 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 2 Dec 2005 03:01:03 +0000 Subject: [PATCH] fixed bug with manuals showing up wrong svn: r1478 --- collects/help/servlets/results.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/help/servlets/results.ss b/collects/help/servlets/results.ss index 1e301e57a3..2b5dd38aa6 100644 --- a/collects/help/servlets/results.ss +++ b/collects/help/servlets/results.ss @@ -299,8 +299,8 @@ is stored in a module top-level and that's namespace-specific. (let ([parsed (read-from-string manuals)]) (cond [(and (list? parsed) - (andmap symbol? parsed)) - (map symbol->string parsed)] + (andmap bytes? parsed)) + (map bytes->path parsed)] [else (map car (find-doc-names))]))] [else (map car (find-doc-names))]))