--- a/Parser.st	Mon Mar 11 15:29:24 2013 +0100
+++ b/Parser.st	Wed Mar 13 14:36:17 2013 +0100
@@ -2024,7 +2024,7 @@
 
 parse:methodSource in:aClass notifying:aRequestor
     "parse a methods source.
-     Return the methods parseTree"
+     Return the method's parseTree"
 
     self initializeFor:methodSource.
     classToCompileFor := aClass.
@@ -2043,7 +2043,7 @@
 !
 
 parseSelector:aStringOrStream
-    "parse a methods source for the methods selector.
+    "parse a method's source for the methods selector.
      Return the selector"
 
     self initializeFor:aStringOrStream.
@@ -2063,6 +2063,15 @@
     "Modified: 17.10.1997 / 12:35:46 / cg"
 ! !
 
+!Parser methodsFor:'Compatibility-Squeak'!
+
+parse:methodSource class:aClass
+    "parse a methods source.
+     Return the method's parseTree"
+
+    ^ self parse:methodSource in:aClass notifying:nil
+! !
+
 !Parser methodsFor:'accessing'!
 
 allowUndeclaredVariables:aBoolean
@@ -10930,11 +10939,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.738 2013-02-27 11:06:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.739 2013-03-13 13:36:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.738 2013-02-27 11:06:17 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.739 2013-03-13 13:36:17 cg Exp $'
 !
 
 version_SVN