[svn:parrot] r29852 - trunk/languages/cardinal/src/classes

[tene@xxxxxxxxxxxx]

Author: tene
Date: Tue Jul 29 10:49:39 2008
New Revision: 29852

Modified:
   trunk/languages/cardinal/src/classes/Object.pir

Log:
[cardinal]
* Track a change in P6Object for calling methods on the metaclass.


Modified: trunk/languages/cardinal/src/classes/Object.pir
==============================================================================
--- trunk/languages/cardinal/src/classes/Object.pir     (original)
+++ trunk/languages/cardinal/src/classes/Object.pir     Tue Jul 29 10:49:39 2008
@@ -140,7 +140,7 @@
     $P0 = cardinalmeta.get_parrotclass(self)
     $P1 = $P0.'new'()
     $P2 = $P1.'HOW'()
-    $I0 = $P2.can('initialize')
+    $I0 = $P2.can(self,'initialize')
     unless $I0, no_initialize
     $P2 = $P1.'initialize'(args :flat, named_args :named :flat)
   no_initialize: