--- a/ParserTests.st	Tue Nov 13 14:04:45 2012 +0100
+++ b/ParserTests.st	Tue Nov 13 14:44:38 2012 +0100
@@ -62,12 +62,14 @@
     
     |testClass|
 
-    testClass := self class 
-                subclass:'AnnotationTestedClass'
-                classInstanceVariableNames:''
-                instanceVariableNames:''
-                classVariableNames:''
-                poolDictionaries:''.
+    Class withoutUpdatingChangesDo:[
+        testClass := self class 
+                    subclass:'AnnotationTestedClass'
+                    classInstanceVariableNames:''
+                    instanceVariableNames:''
+                    classVariableNames:''
+                    poolDictionaries:''.
+    ].
     self mockClass:testClass.
 
     "Created: / 29-11-2009 / 20:52:00 / pp <Pavel.Pospichal@gmail.com>"
@@ -1775,6 +1777,10 @@
 
 !ParserTests class methodsFor:'documentation'!
 
+version
+    ^ '$Header$'
+!
+
 version_CVS
     ^ '$Header$'
 !