--- a/NewChangesBrowser.st	Thu Aug 18 09:50:25 2011 +0200
+++ b/NewChangesBrowser.st	Thu Aug 18 09:51:53 2011 +0200
@@ -2070,18 +2070,17 @@
     "returns true if aClass is loaded"
 
     |cls|
-    aClass isMeta ifTrue:[
-	cls := aClass soleInstance
-    ] ifFalse:[
-	cls := aClass
-    ].
+
+    cls := aClass theNonMetaclass.
     cls isLoaded ifFalse:[
-	(self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
-	ifTrue:[
-	    cls autoload
-	]
+        (self confirm:(cls name , ' is an autoloaded class.\I can only compare the methods texts if its loaded first.\\Load the class first ?') withCRs)
+        ifTrue:[
+            cls autoload
+        ]
     ].
     ^ cls isLoaded
+
+    "Modified: / 18-08-2011 / 09:51:39 / cg"
 !
 
 checkIfFileHasChanged
@@ -3881,6 +3880,10 @@
 
 !NewChangesBrowser class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.34 2011-08-18 07:50:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
 ! !