Index: compilers/imcc/imcc.l
===================================================================
--- compilers/imcc/imcc.l	(revision 22340)
+++ compilers/imcc/imcc.l	(working copy)
@@ -284,17 +284,32 @@
 ".arg"          return ARG;
 ".sub"          return SUB;
 ".end"          return ESUB;
+
 ".pcc_begin"    return PCC_BEGIN;
+".begin_call"   return PCC_BEGIN;
+
 ".pcc_end"      return PCC_END;
+".end_call"     return PCC_END;
+
 ".pcc_call"     return PCC_CALL;
+".call"         return PCC_CALL;
+
 ".nci_call"     return NCI_CALL;
 ".meth_call"    return METH_CALL;
 ".invocant"     return INVOCANT;
 <emit,INITIAL>".pcc_sub"      return PCC_SUB;
+
 ".pcc_begin_return"    return PCC_BEGIN_RETURN;
+".begin_return"        return PCC_BEGIN_RETURN;
+
 ".pcc_end_return"      return PCC_END_RETURN;
+".end_return"          return PCC_END_RETURN;
+
 ".pcc_begin_yield"    return PCC_BEGIN_YIELD;
+".begin_yield"        return PCC_BEGIN_YIELD;
+
 ".pcc_end_yield"      return PCC_END_YIELD;
+".end_yield"          return PCC_END_YIELD;
 
 <emit,INITIAL>":method"        return METHOD;
 <emit,INITIAL>":multi"   return MULTI;
@@ -380,7 +395,7 @@
         return read_macro(valp, interp, yyscanner);
     }
 
-<emit>".constant" {
+<emit>(".constant"|".macro_const") {
     int c;
     int start_line;