SmallSense__MethodPO.st
changeset 373 1365a78e6e36
parent 354 cbffe76c9b5a
child 376 55bc1e532591
--- a/SmallSense__MethodPO.st	Wed Jan 14 15:48:59 2015 +0000
+++ b/SmallSense__MethodPO.st	Wed Jan 14 16:33:53 2015 +0000
@@ -153,11 +153,12 @@
      For internal usage only."
 
     classes size ~~ 1 ifTrue:[ 
-        self error: 'Multiple classes'
+        ^ classes collect:[ :cls | cls compiledMethodAt: selector ]
     ].
     ^ classes anElement compiledMethodAt: selector
 
     "Created: / 20-06-2014 / 11:11:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-01-2015 / 16:20:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MethodPO methodsFor:'initialization'!