Method.st
changeset 1780 1b3a4ddc5b94
parent 1775 6892b91ddc0b
child 1800 1aa32eede53a
--- a/Method.st	Fri Oct 18 14:30:09 1996 +0200
+++ b/Method.st	Fri Oct 18 14:34:28 1996 +0200
@@ -411,6 +411,10 @@
 
         LastSourceFileName = source ifTrue:[
             aStream := LastFileReference at:1.
+	    aStream == 0 ifTrue:[
+		LastFileReference at:1 put:nil.
+		aStream := nil
+	    ]
         ].
 
         aStream isNil ifTrue:[
@@ -2111,6 +2115,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.99 1996-10-17 13:24:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.100 1996-10-18 12:33:06 cg Exp $'
 ! !
 Method initialize!