--- a/Tools_MethodCategoryList.st	Fri Jul 08 14:51:45 2011 +0200
+++ b/Tools_MethodCategoryList.st	Sat Jul 09 10:38:41 2011 +0200
@@ -682,8 +682,6 @@
 update:something with:aParameter from:changedObject
     |cls sel oldMethod newMethod|
 
-changedObject == showCoverageInformation ifTrue:[self halt].
-
     "/ some can be ignored immediately
     changedObject == Smalltalk ifTrue:[
         something isNil ifTrue:[
@@ -749,7 +747,7 @@
 
     super update:something with:aParameter from:changedObject.
 
-    "Modified: / 06-07-2011 / 19:50:50 / cg"
+    "Modified: / 09-07-2011 / 10:03:06 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'drag & drop'!
@@ -1418,7 +1416,7 @@
     ^ categoryList
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
-    "Modified: / 06-07-2011 / 19:51:54 / cg"
+    "Modified: / 09-07-2011 / 10:07:32 / cg"
 !
 
 makeDependent
@@ -1449,7 +1447,7 @@
 
     selectedProtocolsHolder := self selectedProtocols.
     
-    prevClasses := classes ifNil:[ #() ] ifNotNil:[ classes copy ].
+    prevClasses := classes isNil ifTrue:[ #() ] ifFalse:[ classes copy ].
     oldList := self protocolList value copy.
     newList := self listOfMethodCategories.
 
@@ -1498,8 +1496,8 @@
     ].
     listValid := true.
 
-    "Created: / 5.2.2000 / 13:42:11 / cg"
-    "Modified: / 29.2.2000 / 11:08:55 / cg"
+    "Created: / 05-02-2000 / 13:42:11 / cg"
+    "Modified: / 09-07-2011 / 10:36:57 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'private-info'!
@@ -1843,7 +1841,7 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.62 2011-07-07 14:12:01 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.63 2011-07-09 08:38:41 cg Exp $'
 ! !
 
 MethodCategoryList initialize!