fixed PR 8770, made stick man a little bit shorter

svn: r6793 original commit: 541752ca35e6a2510cd51c4ee57f87d35195c9b7
2007-07-02 03:50:04 +00:00 · 2007-07-02 03:50:04 +00:00 · 9d8a56ad78
commit 9d8a56ad78
parent 37bc6ec4ba
1 changed files with 3 additions and 1 deletions
--- a/collects/framework/private/editor.ss
+++ b/collects/framework/private/editor.ss
@ -426,7 +426,9 @@
          (define/public (update-frame-filename)
            (let* ([filename (get-filename)]
                   [name (if filename
-                             (path->string (file-name-from-path (normalize-path filename)))
+                             (path->string 
+                              (file-name-from-path 
+                               filename))
                             (get-filename/untitled-name))])
              (for-each (λ (canvas)
                          (let ([tlw (send canvas get-top-level-window)])