diff --git a/code/gc.lisp b/code/gc.lisp
index 7e1ee187f77894d5ed726ae411b650efdbf5a018..017e042f4745ca27689f24e4bf9d50d224ca4147 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.28 2002/11/05 22:45:40 cracauer Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.29 2002/11/07 16:07:23 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -58,12 +58,15 @@
 ;; #+(or cgc gencgc)
 ;; (c-var-frob dynamic-usage "bytes_allocated")
 
+#+(or cgc gencgc)
+(progn
 (alien:def-alien-routine get_bytes_allocated_lower c-call:int)
 (alien:def-alien-routine get_bytes_allocated_upper c-call:int)
 
 (defun dynamic-usage ()
   (dfixnum:dfixnum-pair-integer
    (get_bytes_allocated_upper) (get_bytes_allocated_lower)))
+)
 
 (defun static-space-usage ()
   (- (* lisp::*static-space-free-pointer* vm:word-bytes)