minor bug on directory selections

svn: r4454
2006-09-28 20:48:25 +00:00 · 2006-09-28 20:48:25 +00:00 · 477528c805
commit 477528c805
parent 97c30012ed
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/path-dialog.ss
+++ b/collects/mred/private/path-dialog.ss
@ -430,7 +430,7 @@
                 [selections (send path-list get-selections)]
                 [many?   (and multi? (equal? "" sel)
                               (<= 1 (length selections)))])
-            (cond [(and isdir? (or (not (equal? "" sel)) (root? sel0)))
+            (cond [(and isdir? (not (equal? "" sel0)))
                   ;; chose a directory -- go there
                   (set-dir path) (send* text* (erase) (select-all)) (set-ok?)]
                  [(and /? isfile?)