diff --git a/C/cdmgr.c b/C/cdmgr.c
index 9825bb841..4fff32258 100644
--- a/C/cdmgr.c
+++ b/C/cdmgr.c
@@ -11,8 +11,12 @@
 * File:		cdmgr.c							 *
 * comments:	Code manager						 *
 *									 *
-* Last rev:     $Date: 2006-04-28 13:23:22 $,$Author: vsc $						 *
+* Last rev:     $Date: 2006-04-28 17:53:44 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.185  2006/04/28 13:23:22  vsc
+* fix number of overflow bugs affecting threaded version
+* make current_op faster.
+*
 * Revision 1.184  2006/04/27 14:11:57  rslopes
 * *** empty log message ***
 *
@@ -1640,10 +1644,10 @@ static void  expand_consult(void)
   Yap_FreeCodeSpace((char *)ConsultLow);
   /* next, set up pointers correctly */
   new_cs += (ConsultSp-ConsultLow);
+  /* put ConsultBase at same offset as before move */
+  ConsultBase = ConsultBase+(new_cs-ConsultSp);
   /* new consult pointer */
   ConsultSp = new_cs;
-  /* reserve 3 slots for the last elements */
-  ConsultBase = new_cb-3;
   /* new end of memory */
   ConsultLow = new_cl;
 }
diff --git a/C/stdpreds.c b/C/stdpreds.c
index 6e3bcd259..39343f9a6 100644
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -11,8 +11,12 @@
 * File:		stdpreds.c						 *
 * comments:	General-purpose C implemented system predicates		 *
 *									 *
-* Last rev:     $Date: 2006-04-28 13:23:23 $,$Author: vsc $						 *
+* Last rev:     $Date: 2006-04-28 17:53:44 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.101  2006/04/28 13:23:23  vsc
+* fix number of overflow bugs affecting threaded version
+* make current_op faster.
+*
 * Revision 1.100  2006/02/05 02:26:35  tiagosoares
 * MYDDAS: Top Level Functionality
 *
@@ -2994,7 +2998,13 @@ Yap_InitCPreds(void)
     init_time();
   }
 #endif
-
+#if SUPPORT_CONDOR
+  init_sys();
+  init_random();
+  //  init_tries();
+  swi_install();
+  init_regexp();
+#endif
 }