Fix thinko.

diff --git a/v7/src/microcode/bchgcc.h b/v7/src/microcode/bchgcc.h
index 563e5ffcbc9f3bc99dbf3540b50d6f8b11eafbfc..b6cf1c0d9741180a42e10afcd67332000f7ccbdc 100644 (file)
--- a/v7/src/microcode/bchgcc.h
+++ b/v7/src/microcode/bchgcc.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: bchgcc.h,v 9.61 2000/11/28 05:18:59 cph Exp $
+$Id: bchgcc.h,v 9.62 2000/11/29 21:25:54 cph Exp $
 
 Copyright (c) 1987-2000 Massachusetts Institute of Technology
 
@@ -441,7 +441,7 @@ do {                                                                        \
   Old = (SCHEME_ADDR_TO_ADDR (Temp));                                  \
   if (Old < low_heap)                                                  \
     continue;                                                          \
-  Compiled_BH (in_gc_p, continue);                                     \
+  RAW_COMPILED_BH (in_gc_p, continue);                                 \
   {                                                                    \
     SCHEME_OBJECT * Saved_Old = Old;                                   \
                                                                        \