MethodChange.st
changeset 3560 c180c3cfe905
parent 3533 cccb70e595fb
child 3774 927ab9fa567e
--- a/MethodChange.st	Tue May 13 11:47:35 2014 +0200
+++ b/MethodChange.st	Wed May 14 10:50:44 2014 +0200
@@ -90,7 +90,7 @@
 
     cls := self changeClass.
     cls isNil ifTrue:[^ nil].
-    ^ cls compiledMethodAt:selector 
+    ^ cls compiledMethodAt:selector asSymbol 
 
     "Created: / 7.2.1998 / 19:47:53 / cg"
 !
@@ -460,7 +460,6 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
-
 !MethodChange methodsFor:'testing'!
 
 isMethodChange
@@ -530,14 +529,14 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MethodChange.st,v 1.77 2014-03-29 23:36:24 vrany Exp $'
+    ^ '$Id: MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
 ! !