--- a/ExternalStream.st	Fri Jul 24 13:58:16 2015 +0200
+++ b/ExternalStream.st	Fri Jul 24 13:58:34 2015 +0200
@@ -1495,6 +1495,15 @@
 
 !ExternalStream class methodsFor:'initialization'!
 
+closeFiles
+    "close all files.
+     To be called on exit of Smalltalk."
+
+    Lobby do:[:eachFileStream |
+        eachFileStream close
+    ].
+!
+
 initDefaultEOLMode
     OperatingSystem isUNIXlike ifTrue:[
 	"/ unix EOL conventions
@@ -1575,8 +1584,8 @@
     "reopen all files (if possible) after a snapShot load.
      This is invoked via the #earlyRestart change notification."
 
-    Lobby do:[:aFileStream |
-	aFileStream reOpen
+    Lobby do:[:eachFileStream |
+        eachFileStream reOpen
     ].
 !
 
@@ -6547,11 +6556,11 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.420 2015-05-18 15:24:22 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.420 2015-05-18 15:24:22 cg Exp $'
+    ^ '$Header$'
 ! !