UnixFilename.st
changeset 12390 42abbd021501
parent 11318 fc07976462e8
child 14221 d2ef1c042257
--- a/UnixFilename.st	Wed Oct 28 15:02:04 2009 +0100
+++ b/UnixFilename.st	Wed Oct 28 15:02:12 2009 +0100
@@ -166,7 +166,10 @@
     "return true, if the receiver represents a hidden file.
      On UNIX, a name starting with a period is considered hidden."
 
-    ^ self baseName startsWith:'.'
+    |baseName|
+
+    baseName := self baseName.
+    ^ ((baseName startsWith:'.') and:[baseName ~= '..'])
 !
 
 isImplicit
@@ -204,5 +207,9 @@
 !UnixFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.15 2008-11-06 10:12:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009-10-28 14:02:12 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009-10-28 14:02:12 cg Exp $'
 ! !