--- a/ChangesBrowser.st	Tue Jul 01 15:19:13 2003 +0200
+++ b/ChangesBrowser.st	Tue Jul 01 15:19:57 2003 +0200
@@ -2013,10 +2013,10 @@
     oldDollarSetting := Parser allowDollarInIdentifier.
     [
         Parser allowDollarInIdentifier:true.
-        Class nameSpaceQuerySignal answer:(self nameSpaceForApply)
-        do:[
+"/        Class nameSpaceQuerySignal answer:(self nameSpaceForApply)
+"/        do:[
             aParseTree := Parser parseExpression:chunk.
-        ].
+"/        ].
 
         aParseTree == #Error ifTrue:[
             (chunk includesString:'comment') ifTrue:[
@@ -4247,7 +4247,7 @@
 classOfChange:changeNr ifAbsent:exceptionBlock
     |className cls isMeta ownerClassName ownerClass|
 
-    className := self fullClassNameOfChange:changeNr.
+    className := self realClassNameOfChange:changeNr.
     className isNil ifTrue:[
         ^ exceptionBlock value:nil
     ].
@@ -5521,5 +5521,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.305 2003-06-18 22:53:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.306 2003-07-01 13:19:57 cg Exp $'
 ! !