--- a/Method.st	Mon Mar 08 19:15:56 2004 +0100
+++ b/Method.st	Mon Mar 08 20:05:11 2004 +0100
@@ -337,7 +337,8 @@
 !Method class methodsFor:'special'!
 
 flushSourceStreamCache
-    LastSourceFileName := LastMethodSources := nil
+    LastSourceFileName := LastMethodSources := nil.
+    LastFileReference at:1 put:0.
 
     "
      Method flushSourceStreamCache
@@ -662,7 +663,7 @@
         aStream := LastFileReference at:1.
         LastFileReference at:1 put:0.
 
-        aStream == 0 ifTrue:[
+        (aStream isNil or:[aStream == 0]) ifTrue:[
             aStream := nil.
         ] ifFalse:[
             LastSourceFileName = source ifFalse:[
@@ -2893,7 +2894,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.263 2004-01-15 12:44:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.264 2004-03-08 19:05:11 cg Exp $'
 ! !
 
 Method initialize!