diff --git a/code/gc.lisp b/code/gc.lisp
index 9bec6c9d5ee4773cc2b642cadcb80560b62c3baa..44719bdac3723e756e7bf24c57a779657847490e 100644
--- a/code/gc.lisp
+++ b/code/gc.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.17 1993/08/05 17:17:10 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/gc.lisp,v 1.18 1994/02/14 11:51:10 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -104,6 +104,7 @@
   (vm:instance-usage :dynamic :top-n 10)
   (vm:instance-usage :static :top-n 10))
 
+
 (defun room (&optional (verbosity :default))
   "Prints to *STANDARD-OUTPUT* information about the state of internal
   storage and its management.  The optional argument controls the
@@ -113,16 +114,18 @@
   an intermediate amount of information.  See also VM:MEMORY-USAGE and
   VM:INSTANCE-USAGE for finer report control."
   (fresh-line)
-  (case verbosity
-    ((t)
-     (room-maximal-info))
-    ((nil)
-     (room-minimal-info))
-    (:default
-     (room-intermediate-info))
-    (t
-     (error "No way man!  The optional argument to ROOM must be T, NIL, ~
-     or :DEFAULT.~%What do you think you are doing?")))
+  (if (fboundp 'vm:memory-usage)
+      (case verbosity
+	((t)
+	 (room-maximal-info))
+	((nil)
+	 (room-minimal-info))
+	(:default
+	 (room-intermediate-info))
+	(t
+	 (error "No way man!  The optional argument to ROOM must be T, NIL, ~
+		 or :DEFAULT.~%What do you think you are doing?")))
+      (room-minimal-info))
   (values))