--- a/ExtStream.st	Sat Jun 15 15:19:40 1996 +0200
+++ b/ExtStream.st	Sat Jun 15 15:21:21 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 13-jun-1996 at 01:14:41'                   !
-
 ReadWriteStream subclass:#ExternalStream
 	instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
 		lastErrorNumber'
@@ -378,12 +376,14 @@
     ]
 !
 
-update:something
+update:something with:aParameter from:changedObject
     "have to reopen files when returning from snapshot"
 
     something == #returnFromSnapshot ifTrue:[
-	self reOpenFiles
+        self reOpenFiles
     ]
+
+    "Created: 15.6.1996 / 15:19:59 / cg"
 ! !
 
 !ExternalStream class methodsFor:'instance creation'!
@@ -3511,6 +3511,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.104 1996-06-13 00:10:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.105 1996-06-15 13:20:43 cg Exp $'
 ! !
 ExternalStream initialize!

--- a/ExternalStream.st	Sat Jun 15 15:19:40 1996 +0200
+++ b/ExternalStream.st	Sat Jun 15 15:21:21 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 13-jun-1996 at 01:14:41'                   !
-
 ReadWriteStream subclass:#ExternalStream
 	instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
 		lastErrorNumber'
@@ -378,12 +376,14 @@
     ]
 !
 
-update:something
+update:something with:aParameter from:changedObject
     "have to reopen files when returning from snapshot"
 
     something == #returnFromSnapshot ifTrue:[
-	self reOpenFiles
+        self reOpenFiles
     ]
+
+    "Created: 15.6.1996 / 15:19:59 / cg"
 ! !
 
 !ExternalStream class methodsFor:'instance creation'!
@@ -3511,6 +3511,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.104 1996-06-13 00:10:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.105 1996-06-15 13:20:43 cg Exp $'
 ! !
 ExternalStream initialize!

--- a/FileDir.st	Sat Jun 15 15:19:40 1996 +0200
+++ b/FileDir.st	Sat Jun 15 15:21:21 1996 +0200
@@ -67,13 +67,15 @@
     ObjectMemory addDependent:self
 !
 
-update:something
+update:something with:aParameter from:changedObject
     "/
     "/ currentDirectory may be different when restarted
     "/
     something == #restarted ifTrue:[
-	PathOfCurrentDirectory := nil
+        PathOfCurrentDirectory := nil
     ]
+
+    "Created: 15.6.1996 / 15:20:21 / cg"
 ! !
 
 !FileDirectory class methodsFor:'instance creation'!
@@ -590,6 +592,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.27 1996-04-25 16:15:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.28 1996-06-15 13:21:21 cg Exp $'
 ! !
 FileDirectory initialize!

--- a/FileDirectory.st	Sat Jun 15 15:19:40 1996 +0200
+++ b/FileDirectory.st	Sat Jun 15 15:21:21 1996 +0200
@@ -67,13 +67,15 @@
     ObjectMemory addDependent:self
 !
 
-update:something
+update:something with:aParameter from:changedObject
     "/
     "/ currentDirectory may be different when restarted
     "/
     something == #restarted ifTrue:[
-	PathOfCurrentDirectory := nil
+        PathOfCurrentDirectory := nil
     ]
+
+    "Created: 15.6.1996 / 15:20:21 / cg"
 ! !
 
 !FileDirectory class methodsFor:'instance creation'!
@@ -590,6 +592,6 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.27 1996-04-25 16:15:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.28 1996-06-15 13:21:21 cg Exp $'
 ! !
 FileDirectory initialize!