From 1ce1ea870acc81fab807f6a301e7fa0958ca81d3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 22 Feb 1999 03:26:36 +0000
Subject: [PATCH] .

original commit: a4a55158e53e53aeabe8890d1c1a1216dffbfcc8
---
 collects/help/help.ss | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 1c1b4eab..d5ab413a 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -16,7 +16,14 @@
 (require-library "url.ss" "net")
 
 (define startup-url 
-  (string-append "file:" (build-path (collection-path "helpdoc") "helpdesk.html")))
+  (string-append "file:" 
+		 (with-handlers ([void 
+				  (lambda (x) 
+				    (build-path (collection-path "help") "index.htm"))])
+		   (let ([f (build-path (collection-path "doc") "help" "index.html")])
+		     (if (file-exists? f)
+			 f
+			 (error "not there"))))))
 
 (invoke-unit/sig
  (require-relative-library "helpr.ss")