diff --git a/src/c/alloc_2.d b/src/c/alloc_2.d
index 76df0631b..0464bc50b 100644
--- a/src/c/alloc_2.d
+++ b/src/c/alloc_2.d
@@ -201,7 +201,7 @@ init_alloc(void)
  *		MALLOC SUBSTITUTION			  *
  **********************************************************/
 
-#ifdef NEED_MALLOC
+#if 0 && defined(NEED_MALLOC)
 #undef malloc
 #undef calloc
 #undef free
diff --git a/src/c/read.d b/src/c/read.d
index 1ed0f6205..2a6c77539 100644
--- a/src/c/read.d
+++ b/src/c/read.d
@@ -2327,8 +2327,12 @@ read_VV(cl_object block, void *entry)
 		block = alloc_object(t_codeblock);
 
 	(*entry_point)(block);
-	VV = block->cblock.data;
 	len = block->cblock.data_size;
+#ifdef GBC_BOEHM
+	VV = block->cblock.data = alloc(len * sizeof(cl_object));
+#else
+	VV = block->cblock.data;
+#endif
 
 	old_READtable = READtable;
 	old_READdefault_float_format = READdefault_float_format;
diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp
index 3d059aa32..c7808bde3 100644
--- a/src/cmp/cmptop.lsp
+++ b/src/cmp/cmptop.lsp
@@ -121,11 +121,14 @@
     (wt-nl "cl_object value0;")
     (wt-nl "if (!FIXNUMP(flag)){")
     (wt-nl "Cblock=flag;")
+    #-boehm-gc
     (wt-nl "flag->cblock.data = VV;")
     (wt-nl "flag->cblock.data_size = VM;")
     (wt-nl "flag->cblock.data_text = compiler_data_text;")
     (wt-nl "flag->cblock.data_text_size = compiler_data_text_size;")
     (wt-nl "return;}")
+    #+boehm-gc
+    (wt-nl "VV = Cblock->cblock.data;")
     ;; useless in initialization.
     (dolist (form *top-level-forms*)
       (let ((*compile-to-linking-call* nil)
@@ -143,12 +146,13 @@
     (wt-h "#define VM" (car x) " " (cdr x)))
   (incf *next-vv*)
   (wt-h "#define VM" vv-reservation " " *next-vv*)
-  (cond ((zerop *next-vv*)
-	 (wt-h "static cl_object VV[1];")
-	 (wt-h "#define VM 0"))
-	(t
-	 (wt-h "#define VM " *next-vv*)
-	 (wt-h "static cl_object VV[VM];")))
+  (wt-h "#define VM " *next-vv*)
+  #+boehm-gc
+  (wt-h "static cl_object *VV;")
+  #-boehm-gc
+  (if (zerop *next-vv*)
+    (wt-h "static cl_object VV[1];")
+    (wt-h "static cl_object VV[VM];"))
   (when *linking-calls*
     (dotimes (i (length *linking-calls*))
       (declare (fixnum i))