diff --git a/C/cdmgr.c b/C/cdmgr.c
index 225649b4f..ae15542f4 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -1006,7 +1006,7 @@ RemoveMainIndex(PredEntry *ap)
   }
   if (First != NULL && spied) {
     ap->OpcodeOfPred = Yap_opcode(_spy_pred);
-    ap->cs.p_code.TrueCodeOfPred = ap->CodeOfPred = (yamop *)(&(ap->OpcodeOfPred)); 
+    ap->CodeOfPred = (yamop *)(&(ap->OpcodeOfPred)); 
   } else if (ap->cs.p_code.NOfClauses > 1
 #ifdef TABLING
 	     ||ap->PredFlags & TabledPredFlag