--- a/ChangesBrowser.st	Mon Nov 21 23:13:43 2016 +0100
+++ b/ChangesBrowser.st	Mon Nov 21 23:33:51 2016 +0100
@@ -3581,9 +3581,13 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
+(text includesString:'§') ifTrue:[self halt].
+
     "/ new:
     parser := Parser for:(ReadStream on:text).
     parser parserFlags allowQualifiedNames:true.
+    parser parserFlags allowDollarInIdentifier:true.
+    parser parserFlags allowParagraphInIdentifier:true.
     Error handle:[:ex |
         ^ nil
     ] do:[
@@ -3595,6 +3599,8 @@
             inNameSpace:nameSpace.
     ].
     ^ p
+
+    "Modified: / 21-11-2016 / 23:25:48 / cg"
 !
 
 queryCloseText
@@ -6537,6 +6543,8 @@
     "
     clsName := nil.
 
+(chunkText includesString:'§') ifTrue:[self halt].
+
     p := browser parseExpression:chunkText inNameSpace:(self nameSpaceForApply).
     (p notNil and:[p ~~ #Error and:[p isMessage]]) ifTrue:[
         rec := p receiver.
@@ -6632,14 +6640,21 @@
                 methodSelector := nil.
                 clsName notNil ifTrue:[
                     methodChunks ifTrue:[
-                        p := Parser
-                                 parseMethodSpecification:text
-                                 in:nil
-                                 ignoreErrors:true
-                                 ignoreWarnings:true.
-                        (p notNil and:[p ~~ #Error]) ifTrue:[
-                            methodSelector := p selector.
-                        ]
+                        p := Parser for:(ReadStream on:text) in:nil.  
+                        p ignoreErrors:true.
+                        p ignoreWarnings:true.
+                        p parserFlags allowDollarInIdentifier:true.
+                        p parserFlags allowParagraphInIdentifier:true.
+                        p parseMethodSpec.
+                        methodSelector := p selector.
+"/                        p := Parser
+"/                                 parseMethodSpecification:text
+"/                                 in:nil
+"/                                 ignoreErrors:true
+"/                                 ignoreWarnings:true.
+"/                        (p notNil and:[p ~~ #Error]) ifTrue:[
+"/                            methodSelector := p selector.
+"/                        ]
                     ]
                 ].
 
@@ -6675,7 +6690,7 @@
         emptyBlock value
     ].
 
-    "Modified: / 01-05-2016 / 19:15:00 / cg"
+    "Modified: / 21-11-2016 / 23:32:29 / cg"
 !
 
 processNonMethodChunk