--- a/PolymorphicInlineCache.st	Sat Oct 01 20:20:08 2011 +0100
+++ b/PolymorphicInlineCache.st	Sun Oct 02 17:42:05 2011 +0100
@@ -83,8 +83,31 @@
 "
 ! !
 
+!PolymorphicInlineCache methodsFor:'* uncategorized *'!
+
+bind: aMethod to: initialSearchClass
+    | selector |
+    selector := aMethod selector.
+%{
+    inlineCachePtr pIlc;
+    OBJ srch;
+    OBJFUNC code;
+
+    pIlc = __externalAddressVal(__INST(xyz));
+    srch = initialSearchClass;
+    code = __MethodInstrPtr(aMethod)->m_code;
+
+    __poly_enter(pIlc, srch, code, __SEND0ADDR__, selector);
+    RETURN(1);
+%}.
+
+    self primitiveFailed.
+
+    "Created: / 02-10-2011 / 18:05:26 / Jan Kurs <kursjan@fit.cvut.cz>"
+! !
+
 !PolymorphicInlineCache class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: PolymorphicInlineCache.st 10704 2011-10-01 18:43:30Z kursjan $'
+    ^ '$Id: PolymorphicInlineCache.st 10707 2011-10-02 16:42:05Z kursjan $'
 ! !