Index: /trunk/ccl/lisp-kernel/x86-exceptions.c
===================================================================
--- /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 6539)
+++ /trunk/ccl/lisp-kernel/x86-exceptions.c	(revision 6540)
@@ -78,5 +78,6 @@
   if (newlimit > (natural) (a->high)) {
     if (extend) {
-      natural extend_by = lisp_heap_gc_threshold;
+      signed_natural inhibit = (signed_natural)(lisp_global(GC_INHIBIT_COUNT));
+      natural extend_by = inhibit ? 0 : lisp_heap_gc_threshold;
       do {
         if (resize_dynamic_heap(a->active, (newlimit-oldlimit)+extend_by)) {