--- a/ChangesBrowser.st	Tue Aug 06 19:09:46 2019 +0200
+++ b/ChangesBrowser.st	Thu Aug 08 15:17:23 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
@@ -3829,7 +3827,7 @@
     "/ does not care for VW qualified names
     "/ ^ Parser parseExpression:text inNameSpace:nameSpace.
 
-    (text includesString:'§') ifTrue:[
+    (text includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].
 
@@ -5060,7 +5058,7 @@
                                         changeClass isNil ifTrue:[
                                             changeClass := Smalltalk at:className ifAbsent:[].
                                         ].
-                                        [changeClass isNil] whileTrue:[
+                                        [changeClass isNil and:[className notNil]] whileTrue:[
                                             (NameSpace allNameSpaces
                                                 contains:[:ns | (nsClass := (ns at:className asSymbol)) notNil])
                                             ifTrue:[
@@ -7047,7 +7045,7 @@
     "
     clsName := nil.
 
-    (chunkText includesString:'§') ifTrue:[
+    (chunkText includesString:'§') ifTrue:[
         self halt:'should no longer happen'
     ].