From 8661413b7f1b2177953856e60446b183b215d8b7 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 4 May 2007 20:55:19 +0000 Subject: [PATCH] use path-element->string svn: r6146 --- collects/mred/private/path-dialog.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/path-dialog.ss b/collects/mred/private/path-dialog.ss index 7e7ef6acc9..92df240d6a 100644 --- a/collects/mred/private/path-dialog.ss +++ b/collects/mred/private/path-dialog.ss @@ -50,8 +50,8 @@ (define-struct pname (path string isdir? okstring? nulstring)) (define (path->pname path isdir?) (let* ([name (if (member (path->string path) '("." "..")) - (path->string path) ; avoid segfault bug (PR8481) - (bytes->string/locale (path-element->bytes path)))] + (path->string path) ; avoid errors + (path-element->string path))] [name (regexp-replace end-separators-rx name "")] [name (if (<= 199 (string-length name)) (string-append (substring name 0 195) "...")