diff --git a/C/dbase.c b/C/dbase.c
index 5439289cd..007b5dc3e 100644
--- a/C/dbase.c
+++ b/C/dbase.c
@@ -3483,6 +3483,9 @@ p_recorded(void)
 	P = cl->ClCode;
       } else {
 	CP = P;
+#if defined(YAPOR) || defined(THREADS)
+	PP = cl->ClPred;
+#endif
 	P = cl->ClCode;
 	ENV = YENV;
 	YENV = ASP;