another attempt to eliminate references to the original

installation directory from the drracket tool docs

please include in 6.1.1

pkgs/drracket-pkgs/drracket-tool-doc/scribblings/drracket-tools/drracket-tools.scrbl

@@ -5,7 +5,8 @@
 @(define syncheck-example-eval (make-base-eval))
 @(begin 
    (syncheck-example-eval
-    '(require drracket/check-syntax racket/class setup/collects)))
+    '(require drracket/check-syntax racket/class
+              setup/main-doc setup/collects)))
                
 
 @title{DrRacket Tools}
@@ -52,7 +53,11 @@ in order to make the results be platform independent.
                      [(pair? x) (cons (loop (car x)) (loop (cdr x)))]
                      [(vector? x) (for/vector ([x (in-vector x)])
                                     (loop x))]
-                     [(path? x) (path->module-path x)]
+                     [(path? x)
+                      (define p (path->collects-relative x))
+                      (if (path? p)
+                          (path->main-doc-relative x)
+                          p)]
                      [else x])))
                
                (let ([example-module