--- a/ExternalStream.st	Mon Mar 04 15:27:59 2002 +0100
+++ b/ExternalStream.st	Mon Mar 04 15:29:14 2002 +0100
@@ -2341,7 +2341,15 @@
     self primitiveFailed
 !
 
-disposed
+executor
+    "return a copy for finalization-registration;
+     since all we need at finalization time is the fileDescriptor,
+     a cheaper copy is possible."
+
+    ^ self class basicNew setFilePointer:filePointer
+!
+
+finalize
     "some Stream has been collected - close the file if not already done"
 
     self closeFile
@@ -2382,14 +2390,6 @@
     filePointer := something
 !
 
-shallowCopyForFinalization
-    "return a copy for finalization-registration;
-     since all we need at finalization time is the fileDescriptor,
-     a cheaper copy is possible."
-
-    ^ self class basicNew setFilePointer:filePointer
-!
-
 shutDown
     "close the stream - added for protocol compatibility with PipeStream.
      see comment there"
@@ -5706,6 +5706,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.232 2001-12-11 20:18:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.233 2002-03-04 14:29:14 stefan Exp $'
 ! !
 ExternalStream initialize!