--- a/Method.st	Fri Nov 29 19:07:52 1996 +0100
+++ b/Method.st	Mon Dec 02 18:35:17 1996 +0100
@@ -423,7 +423,6 @@
         LastSourceFileName = source ifTrue:[
             aStream := LastFileReference at:1.
             aStream == 0 ifTrue:[
-                LastFileReference at:1 put:nil.
                 aStream := nil
             ]
         ].
@@ -496,6 +495,13 @@
             "
             LastFileReference isNil ifTrue:[
                 LastFileReference := WeakArray new:1
+            ] ifFalse:[
+                |s|
+
+                s := LastFileReference at:1.
+                (s ~~ 0 and:[s ~~ aStream]) ifTrue:[
+                    s close.
+                ].
             ].
             LastFileReference at:1 put:aStream.
             LastSourceFileName := source
@@ -504,6 +510,7 @@
     ^ junk
 
     "Modified: 1.11.1996 / 16:26:21 / cg"
+    "Modified: 2.12.1996 / 16:35:00 / stefan"
 !
 
 source:aString
@@ -2638,6 +2645,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.110 1996-11-07 18:09:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.111 1996-12-02 17:35:17 stefan Exp $'
 ! !
 Method initialize!