--- 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'!