--- a/Tools__MethodCategoryList.st Sat Apr 05 10:30:11 2014 +0200
+++ b/Tools__MethodCategoryList.st Tue Apr 08 17:08:25 2014 +0200
@@ -1631,7 +1631,7 @@
"/ prevSelection := selectedProtocolsHolder value ? lastSelectedProtocols ? #().
rawList := self rawProtocolList value.
- newSelection := prevSelection select:[:item | rawList includes:item string].
+ newSelection := prevSelection select:[:item | item notNil and:[rawList includes:item string]].
newSelection size > 0 ifTrue:[
"/ force change (for dependents)
@@ -2123,11 +2123,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.100 2014-04-01 10:32:17 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.101 2014-04-08 15:08:25 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.100 2014-04-01 10:32:17 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.101 2014-04-08 15:08:25 stefan Exp $'
! !