# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1112711582 -7200
# Node ID a6dd7e6cdd6183130ab68909f41fe172924d9805
# Parent  2dcb60da6bccf2cc6174d1ba93a289820c677573
*** empty log message ***

diff -r 2dcb60da6bcc -r a6dd7e6cdd61 PCFilename.st
--- a/PCFilename.st	Tue Apr 05 14:12:21 2005 +0200
+++ b/PCFilename.st	Tue Apr 05 16:33:02 2005 +0200
@@ -434,12 +434,11 @@
 !
 
 isDirectory
-    "return true, if I represent a root directory 
-     (i.e. I have no parentDir).
+    "return true, if I represent a directory 
      Redefined to care for volumeRoots."
 
     self isRootDirectory ifTrue:[^ true].
-    ^super isDirectory.
+    ^ super isDirectory.
 
     "Created: / 24.9.1998 / 14:04:31 / cg"
 !
@@ -545,7 +544,8 @@
             ].
         ]
     ].
-    ^ super isRootDirectory
+    ^ false
+    "/ ^ super isRootDirectory
 
     "Created: / 21.9.1998 / 15:37:41 / cg"
     "Modified: / 24.9.1998 / 15:57:10 / cg"
@@ -753,5 +753,5 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.29 2005-03-14 21:55:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.30 2005-04-05 14:33:02 cg Exp $'
 ! !