diff --git a/vm/code_heap.c b/vm/code_heap.c
index 4113e8abc8..e55188c6a8 100755
--- a/vm/code_heap.c
+++ b/vm/code_heap.c
@@ -229,7 +229,7 @@ CELL allot_code_block(CELL size)
 
 		/* Insufficient room even after code GC, give up */
 		if(start == 0)
-			critical_error("Out of memory in add-compiled-block",0);
+			fatal_error("Out of memory in add-compiled-block",0);
 	}
 
 	return start;
diff --git a/vm/factor.c b/vm/factor.c
index 826ad65324..20667a23f5 100755
--- a/vm/factor.c
+++ b/vm/factor.c
@@ -19,7 +19,7 @@ void default_parameters(F_PARAMETERS *p)
 	p->rs_size = 32 * CELLS;
 
 	p->gen_count = 3;
-	p->code_size = 4 * CELLS;
+	p->code_size = 8 * CELLS;
 	p->young_size = 2 * CELLS;
 	p->aging_size = 4 * CELLS;
 #endif