--- a/FileStream.st	Fri Jul 05 15:27:01 2013 +0200
+++ b/FileStream.st	Fri Jul 05 15:46:24 2013 +0200
@@ -770,12 +770,20 @@
      This is an ST/X special feature which is not portable
      to other systems."
 
-    removeOnClose := aBoolean.
-    Lobby registerChange:self.
+    removeOnClose == aBoolean ifFalse:[
+        removeOnClose := aBoolean.
+        Lobby registerChange:self.
+    ]
 
     "Modified: / 13.8.1998 / 12:10:07 / cg"
 !
 
+setRemoveOnClose:aBoolean
+    "set/clear the removeOnClose flag - only for the executor"
+
+    removeOnClose := aBoolean.
+!
+
 store:something
     "what really should this do"
 
@@ -820,7 +828,7 @@
     executor := super executor.
     removeOnClose == true ifTrue:[
         executor
-            removeOnClose:true;
+            setRemoveOnClose:true;
             pathName:pathName.
     ].
     ^ executor
@@ -1954,11 +1962,11 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.158 2013-07-05 11:29:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.159 2013-07-05 13:46:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.158 2013-07-05 11:29:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.159 2013-07-05 13:46:24 cg Exp $'
 ! !