--- a/FileDirectory.st	Thu Sep 18 22:11:04 1997 +0200
+++ b/FileDirectory.st	Thu Sep 18 22:12:16 1997 +0200
@@ -84,7 +84,7 @@
 currentDirectory
     "create and return a new FileDirectory for the current directory"
 
-    self obsoleteMethodWarning:'use Filename'.
+    "/ self obsoleteMethodWarning:'use Filename'.
     ^ (self basicNew) pathName:(Filename currentDirectory name)
 
     "
@@ -99,7 +99,7 @@
     "create and return a new FileDirectory for the directory
      with given pathname"
 
-    self obsoleteMethodWarning:'use Filename'.
+    "/ self obsoleteMethodWarning:'use Filename'.
     name asString = '.' ifTrue:[
 	Filename currentDirectory name ~= '.' ifTrue:[
 	    ^ self currentDirectory
@@ -119,7 +119,7 @@
 
     |baseName sep|
 
-    self obsoleteMethodWarning:'use Filename'.
+    "/ self obsoleteMethodWarning:'use Filename'.
 
 "/ OLD:
 "/    sep := OperatingSystem fileSeparator.
@@ -168,7 +168,7 @@
 rootDirectory
     "create and return a new FileDirectory for the root directory"
 
-    self obsoleteMethodWarning:'use Filename'.
+    "/ self obsoleteMethodWarning:'use Filename'.
     ^ (self basicNew) pathName:(Filename rootDirectory name)
 
     "
@@ -673,6 +673,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.32 1997-09-15 20:34:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.33 1997-09-18 20:12:15 cg Exp $'
 ! !
 FileDirectory initialize!