UnixFilename.st
branchjv
changeset 17734 406b1590afe8
parent 17711 39faaaf888b4
child 17735 6a5bc05f696a
--- a/UnixFilename.st	Mon Oct 26 21:51:17 2009 +0000
+++ b/UnixFilename.st	Thu Nov 05 14:41:30 2009 +0000
@@ -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,10 @@
 !UnixFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Id: UnixFilename.st 10447 2009-06-14 13:09:55Z vranyj1 $'
+    ^ '$Id: UnixFilename.st 10477 2009-11-05 14:41:30Z vranyj1 $'
+!
+
+version_CVS
+    ^ '$Id: UnixFilename.st 10477 2009-11-05 14:41:30Z vranyj1 $'
 ! !
+