Explainer.st
changeset 3059 9143ab6cfada
parent 3058 2709dcc6f01a
child 3070 aceab5843775
--- 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 $'
 ! !