--- a/Method.st	Mon Jun 24 11:53:35 2013 +0200
+++ b/Method.st	Mon Jun 24 15:42:44 2013 +0200
@@ -2965,10 +2965,12 @@
             parser := parserClass perform:parseSelector with:sourceString.
         ].
         (parser isNil or:[parser == #Error]) ifTrue:[^ valueIfNoSource].
-        LastParseTreeCache isNil ifTrue:[
-            LastParseTreeCache := CacheDictionary new:500.
+        self mclass notNil ifTrue:[
+            LastParseTreeCache isNil ifTrue:[
+                LastParseTreeCache := CacheDictionary new:500.
+            ].
+            LastParseTreeCache at:self put:(ParserCacheEntry new parserClass:parserClass method:self parser:parser).
         ].
-        LastParseTreeCache at:self put:(ParserCacheEntry new parserClass:parserClass method:self parser:parser).
         ^ parser perform:accessSelector
     ].
     ^ valueIfNoSource
@@ -3783,11 +3785,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.418 2013-06-24 09:53:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.419 2013-06-24 13:42:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.418 2013-06-24 09:53:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.419 2013-06-24 13:42:44 cg Exp $'
 !
 
 version_SVN