--- a/DirectoryContents.st	Mon Dec 14 15:20:18 2009 +0100
+++ b/DirectoryContents.st	Wed Dec 16 16:15:37 2009 +0100
@@ -775,20 +775,29 @@
 !
 
 isSpecialFile
-    |t|
+    |type|
+
+    type := self type.
 
-    t := self type.
-    ^ (t ~= #directory and:[t ~~ #regular and:[t ~~ #symbolicLink]])
+    ^ (type ~~ #directory
+        and:[type ~~ #remoteDirectory
+        and:[type ~~ #regular
+        and:[type ~~ #symbolicLink
+    ]]])
 !
 
 isSymbolicLink
-    ^ self type == #isymbolicLink
+    ^ self type == #symbolicLink
 ! !
 
 !DirectoryContents class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.54 2009-04-30 11:38:44 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.55 2009-12-16 15:15:37 ca Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic2/DirectoryContents.st,v 1.55 2009-12-16 15:15:37 ca Exp $'
 ! !
 
 DirectoryContents initialize!