--- a/FileDirectory.st	Sat Dec 05 11:11:49 1998 +0100
+++ b/FileDirectory.st	Fri Dec 11 16:29:25 1998 +0100
@@ -71,11 +71,12 @@
     "/
     "/ currentDirectory may be different when restarted
     "/
-    something == #restarted ifTrue:[
+    something == #earlySystemInstallation ifTrue:[
         PathOfCurrentDirectory := nil
     ]
 
-    "Created: 15.6.1996 / 15:20:21 / cg"
+    "Created: / 15.6.1996 / 15:20:21 / cg"
+    "Modified: / 11.12.1998 / 16:28:40 / cg"
 ! !
 
 !FileDirectory class methodsFor:'instance creation'!
@@ -618,6 +619,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.36 1998-01-21 14:20:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.37 1998-12-11 15:29:25 cg Exp $'
 ! !
 FileDirectory initialize!