--- a/Explainer.st Tue Apr 02 11:32:45 2013 +0200
+++ b/Explainer.st Tue Apr 02 14:03:48 2013 +0200
@@ -138,7 +138,7 @@
recClassSet size == 1 ifTrue:[
srchClass := recClassSet first.
"take care - Set cannot store nil!!"
- implementingClasses := recClassSet collect:[:cls | cls whichClassIncludesSelector:selector] as:Array.
+ implementingClasses := (recClassSet collect:[:cls | cls whichClassIncludesSelector:selector]) asArray.
(implementingClasses includes:nil) ifTrue:[
implementingClasses size > 1 ifTrue:[
@@ -1465,10 +1465,10 @@
!Explainer class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.118 2013-04-02 09:32:45 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.119 2013-04-02 12:03:48 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.118 2013-04-02 09:32:45 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.119 2013-04-02 12:03:48 stefan Exp $'
! !