--- a/Parser.st	Fri Jun 20 18:54:37 1997 +0200
+++ b/Parser.st	Fri Jun 20 18:55:14 1997 +0200
@@ -1349,6 +1349,24 @@
     ].
     self release.
     ^ value
+!
+
+parseSelector:aStringOrStream
+    self initializeFor:aStringOrStream.
+    self parseMethodSpec.
+    ^ selector.
+
+    "
+     Parser new
+        parseSelector:'
+parseSelector:aStringOrStream
+    self initializeFor:aStringOrStream.
+    self parseMethodSpec.
+    ^ selector.
+'                 
+    "
+
+    "Modified: 20.6.1997 / 17:58:52 / cg"
 ! !
 
 !Parser methodsFor:'accessing'!
@@ -4061,6 +4079,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.136 1997-06-19 16:34:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.137 1997-06-20 16:55:14 cg Exp $'
 ! !
 Parser initialize!