Index: compilers/imcc/imcc.y
===================================================================
--- compilers/imcc/imcc.y	(revision 36095)
+++ compilers/imcc/imcc.y	(working copy)
@@ -1851,6 +1851,7 @@
            $$ = $1;
            if ($1->set != 'P')
                IMCC_fataly(interp, EXCEPTION_SYNTAX_ERROR, "Sub isn't a PMC");
+           IMCC_INFO(interp)->cur_obj = $1;
          }
    | target DOT sub_label_op
         {