--- a/ChangesBrowser.st	Mon Nov 05 18:29:47 2001 +0100
+++ b/ChangesBrowser.st	Mon Nov 05 18:31:31 2001 +0100
@@ -1282,11 +1282,7 @@
 
     |cls answer|
 
-    aClass isMeta ifTrue:[
-        cls := aClass soleInstance
-    ] ifFalse:[
-        cls := aClass
-    ].
+    cls := aClass theNonMetaclass.
     cls isLoaded ifFalse:[
         (self confirm:(resources 
                         string:'%1 is an autoloaded class.\I can only compare the methods source if its loaded first.\\Shall the class be loaded now ?'
@@ -1298,8 +1294,8 @@
     ].
     ^ cls isLoaded
 
-    "Created: 12.12.1995 / 14:04:39 / cg"
-    "Modified: 12.12.1995 / 14:11:05 / cg"
+    "Created: / 12.12.1995 / 14:04:39 / cg"
+    "Modified: / 5.11.2001 / 16:34:29 / cg"
 !
 
 clearCodeView
@@ -2392,11 +2388,7 @@
 
                                     autoCompare value ifTrue:[ 
                                         changeClass isNil ifFalse:[
-                                            changeClass isMeta ifTrue:[
-                                                cls := changeClass soleInstance
-                                            ] ifFalse:[
-                                                cls := changeClass
-                                            ].
+                                            cls := changeClass theNonMetaclass
                                         ].
 
                                         (changeClass isNil or:[sel isNil or:[cls isLoaded not]]) ifTrue:[
@@ -2470,7 +2462,7 @@
     self checkIfFileHasChanged
 
     "Modified: / 27.8.1995 / 23:06:55 / claus"
-    "Modified: / 13.2.2000 / 15:02:11 / cg"
+    "Modified: / 5.11.2001 / 16:35:11 / cg"
 !
 
 readXMLChangesFrom:aStream inBackground:inBackground
@@ -3231,11 +3223,7 @@
             ] ifFalse:[
                 "/ skipping unloaded/unknown classes
                 thisClass isBehavior ifTrue:[
-                    thisClass isMeta ifTrue:[
-                        compressThis := aClassNameOrNil = thisClass soleInstance name. 
-                    ] ifFalse:[
-                        compressThis := aClassNameOrNil = thisClass name
-                    ]
+                    compressThis := aClassNameOrNil = thisClass theNonMetaclass name. 
                 ]
             ].
 
@@ -3284,7 +3272,7 @@
     self newLabel:''.
 
     "Created: / 29.10.1997 / 01:02:44 / cg"
-    "Modified: / 13.2.2000 / 15:05:07 / cg"
+    "Modified: / 5.11.2001 / 16:34:53 / cg"
 !
 
 deleteChange:changeNr
@@ -4608,5 +4596,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.239 2001-10-26 08:14:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.240 2001-11-05 17:31:31 cg Exp $'
 ! !