Behavior.st
branchjv
changeset 18426 618b38afd88b
parent 18403 9a3fc7cc7127
parent 18424 280626c612bc
child 18442 bd42fa983e3f
--- a/Behavior.st	Sat May 30 08:58:10 2015 +0100
+++ b/Behavior.st	Mon Jun 01 12:42:14 2015 +0100
@@ -3312,6 +3312,12 @@
      Do not flush inline caches, therefore old cached methods may be executed
      after this call"
 
+%{
+#ifdef __SCHTEAM__
+    self.instVarAt_put(I_methodDictionary, dict);
+    return __c__._RETURN(self);
+#endif
+%}.
     "/ since the only thing the VM is prepared to deal with are
     "/ proper methodDictionaries (it cannot do another message send, to
     "/ find any methods ...), we convert it here if required.
@@ -5328,9 +5334,9 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.379 2015-05-24 12:53:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.380 2015-05-31 09:24:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.379 2015-05-24 12:53:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.380 2015-05-31 09:24:57 cg Exp $'
 ! !