From e5d3889fe41498e96c15f340cef93313d3738153 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 12 Jun 2008 13:39:23 +0000
Subject: [PATCH] fix module-path-index->taglet bug that is mainly exposed when
 the current directory is a root directory

svn: r10231

original commit: 64147e45abdfa0cef15f6dd7fcf20e3b481d01e3
---
 collects/scribble/basic.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
index 0aefa064..ddf67325 100644
--- a/collects/scribble/basic.ss
+++ b/collects/scribble/basic.ss
@@ -104,7 +104,7 @@
   ;; Derive the name from the module path:
   (let ([p (collapse-module-path-index
             mod
-            (current-directory))])
+            (build-path (current-directory) "dummy"))])
     (if (path? p)
         ;; If we got a path back anyway, then it's best to use the resolved
         ;; name; if the current directory has changed since we