From 7c153c3248b91dcbce87e6fe942f9f893f9f9744 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 17 Jan 2007 07:02:16 +0000
Subject: [PATCH] fix conversion of pathnames to module names

svn: r5376
---
 collects/drscheme/private/module-language.ss | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 458c9c7f03..8dc718b851 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -427,17 +427,18 @@
         (and path
              (let-values ([(base name dir) 
                            (split-path (normal-case-path (simplify-path (expand-path path) #f)))])
-               (string->symbol (format ",~a" (path->string base))))))
+               (string->symbol (format ",~a" (bytes->string/latin-1 (path->bytes base)))))))
         
       ;; build-name : path -> symbol
       (define (build-name pre-path)
         (let ([path (normal-case-path (simplify-path (expand-path pre-path) #f))])
           (let-values ([(base name dir) (split-path path)])
             (string->symbol (format ",~a" 
-                                    (path->string
-                                     (build-path 
-                                      base
-                                      (remove-suffix (path->string name)))))))))
+                                    (bytes->string/latin-1
+                                      (path->bytes
+                                       (build-path 
+                                        base
+                                        (remove-suffix (path->string name))))))))))
       
       ;; get-filename : port -> (union string #f)
       ;; extracts the file the definitions window is being saved in, if any.