--- a/FileDirectory.st	Sun Aug 21 17:29:06 2011 +0200
+++ b/FileDirectory.st	Sun Aug 21 18:01:15 2011 +0200
@@ -93,7 +93,7 @@
     "create and return a new FileDirectory for the current directory"
 
     "/ self obsoleteMethodWarning:'use Filename'.
-    ^ (self basicNew) pathName:(Filename currentDirectory name)
+    ^ self on:(Filename currentDirectory name)
 
     "
      FileDirectory currentDirectory contents
@@ -101,6 +101,8 @@
      FileDirectory currentDirectory isReadable
      FileDirectory currentDirectory pathName
     "
+
+    "Modified: / 20-08-2011 / 12:19:51 / cg"
 !
 
 directoryNamed:name
@@ -109,16 +111,18 @@
 
     "/ self obsoleteMethodWarning:'use Filename'.
     name asString = '.' ifTrue:[
-	Filename currentDirectory name ~= '.' ifTrue:[
-	    ^ self currentDirectory
-	]
+        Filename currentDirectory name ~= '.' ifTrue:[
+            ^ self currentDirectory
+        ]
     ].
-    ^ (self basicNew) pathName:(name asFilename constructString:'')
+    ^ self on:(name asFilename constructString:'')
 
     "
      (FileDirectory directoryNamed:'..') pathName
      (FileDirectory directoryNamed:'../..') files
     "
+
+    "Modified: / 20-08-2011 / 12:19:57 / cg"
 !
 
 directoryNamed:name in:aFileDirectory
@@ -138,23 +142,31 @@
     ] ifFalse:[
         baseName := aFileDirectory
     ].
-    ^ (self basicNew) pathName:((Filename named:baseName) constructString:name)
+    ^ self on:((Filename named:baseName) constructString:name)
 
-    "Modified: 28.4.1997 / 23:23:51 / cg"
-    "Modified: 28.4.1997 / 22:34:47 / dq"
+    "Modified: / 28-04-1997 / 22:34:47 / dq"
+    "Modified: / 20-08-2011 / 12:20:03 / cg"
+!
+
+on:aDirectoryPathName
+    ^ (self basicNew) pathName:aDirectoryPathName
+
+    "Created: / 20-08-2011 / 12:19:28 / cg"
 !
 
 rootDirectory
     "create and return a new FileDirectory for the root directory"
 
     "/ self obsoleteMethodWarning:'use Filename'.
-    ^ (self basicNew) pathName:(Filename rootDirectory name)
+    ^ self on:(Filename rootDirectory name)
 
     "
      FileDirectory rootDirectory contents
      FileDirectory rootDirectory files
      FileDirectory rootDirectory isReadable
     "
+
+    "Modified: / 20-08-2011 / 12:20:09 / cg"
 ! !
 
 !FileDirectory class methodsFor:'Compatibility-Squeak'!
@@ -169,6 +181,12 @@
 
 pathNameDelimiter
     ^ Filename separator
+!
+
+slash
+    ^ Filename separator asString
+
+    "Created: / 20-08-2011 / 12:18:27 / cg"
 ! !
 
 !FileDirectory class methodsFor:'private'!
@@ -794,11 +812,11 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.49 2009-10-26 15:24:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.50 2011-08-21 16:01:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.49 2009-10-26 15:24:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.50 2011-08-21 16:01:15 cg Exp $'
 ! !
 
 FileDirectory initialize!