--- a/FileDir.st	Sat Jan 08 17:12:03 1994 +0100
+++ b/FileDir.st	Sat Jan 08 17:18:40 1994 +0100
@@ -12,7 +12,7 @@
 
 Collection subclass:#FileDirectory
        instanceVariableNames:'pathName lazy'
-       classVariableNames:'pathOfCurrentDirectory'
+       classVariableNames:'PathOfCurrentDirectory'
        poolDictionaries:''
        category:'Collections-Files'
 !
@@ -26,7 +26,7 @@
 They provide various methods to create/delete and query for files and/or
 directories.
 
-$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.7 1993-12-12 21:53:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.8 1994-01-08 16:18:31 claus Exp $
 
 written winter 89 by claus
 '!
@@ -40,7 +40,7 @@
 
 update:something
     something == #restarted ifTrue:[
-        pathOfCurrentDirectory := nil
+        PathOfCurrentDirectory := nil
     ]
 ! !
 
@@ -193,8 +193,8 @@
     "since currentDirectory is used very often, cache its path here"
 
     (pathName = '.') ifTrue:[
-        pathOfCurrentDirectory notNil ifTrue:[
-            pathName := pathOfCurrentDirectory.
+        PathOfCurrentDirectory notNil ifTrue:[
+            pathName := PathOfCurrentDirectory.
             lazy := false.
             ^ self
         ]
@@ -244,7 +244,7 @@
 
     "if it was the current dir, keep name for next query"
     (shortPathName = '.') ifTrue:[
-        pathOfCurrentDirectory := fullPathName
+        PathOfCurrentDirectory := fullPathName
     ]
 ! !