--- a/Parser.st	Tue Sep 24 22:01:42 2013 +0200
+++ b/Parser.st	Fri Sep 27 17:15:16 2013 +0200
@@ -1388,7 +1388,7 @@
     tree := parser parseMethod.
     (parser errorFlag or:[tree == #Error]) ifTrue:[^ nil].
 
-    ReadBeforeWrittenTester searchForReadBeforeWrittenIn:tree
+    RBReadBeforeWrittenTester searchForReadBeforeWrittenIn:tree
 
     "
      self
@@ -11745,11 +11745,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.794 2013-09-23 12:41:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.795 2013-09-27 15:15:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.794 2013-09-23 12:41:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.795 2013-09-27 15:15:16 cg Exp $'
 !
 
 version_SVN