diff --git a/C/index.c b/C/index.c
index 9f4e4bc17..113bf1cd4 100644
--- a/C/index.c
+++ b/C/index.c
@@ -11,8 +11,11 @@
 * File:		index.c							 *
 * comments:	Indexing a Prolog predicate				 *
 *									 *
-* Last rev:     $Date: 2005-11-18 18:48:52 $,$Author: tiagosoares $						 *
+* Last rev:     $Date: 2005-11-24 15:33:52 $,$Author: tiagosoares $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.147  2005/11/18 18:48:52  tiagosoares
+* support for executing c code when a cut occurs
+*
 * Revision 1.146  2005/10/29 02:21:47  vsc
 * people should be able to disable indexing.
 *
@@ -1981,6 +1984,10 @@ add_info(ClauseDef *clause, UInt regno)
     case _try_userc:
     case _retry_c:
     case _retry_userc:
+#ifdef CUT_C
+    case _cut_c:
+    case _cut_userc:
+#endif
     case _switch_on_type:
     case _switch_list_nl:
     case _switch_on_arg_type:
diff --git a/H/rclause.h b/H/rclause.h
index edada9f20..062669891 100644
--- a/H/rclause.h
+++ b/H/rclause.h
@@ -12,8 +12,12 @@
 * File:		rclause.h						 *
 * comments:	walk through a clause					 *
 *									 *
-* Last rev:     $Date: 2005-09-19 19:14:50 $,$Author: vsc $						 *
+* Last rev:     $Date: 2005-11-24 15:35:29 $,$Author: tiagosoares $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.12  2005/09/19 19:14:50  vsc
+* fix two instructions that were being read badly: op_fail and
+* switch_list_nl.
+*
 * Revision 1.11  2005/09/08 21:55:47  rslopes
 * BEAM for YAP update...
 *
@@ -768,6 +772,14 @@ restore_opcodes(yamop *pc)
       pc->u.lds.p = PtoPredAdjust(pc->u.lds.p);
       pc = NEXTOP(pc,lds);
       break;
+#ifdef CUT_C
+    case _cut_c:
+    case _cut_userc:
+      /* don't need to do nothing here, because this two instructions 
+       are "phantom" instructions. (see: cut_c implementation paper 
+       on PADL 2006) */
+      break;
+#endif 
       /* instructions type llll */
     case _switch_on_type:
       pc->u.llll.l1 = PtoOpAdjust(pc->u.llll.l1);