diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp
index 945f420b5a8dc6e2e5e88b1cc60320683e7e6d19..7f5906d914b7c113650e8bf3710dc866ff5e99d5 100644
--- a/tools/clmcom.lisp
+++ b/tools/clmcom.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.18 1994/11/02 17:39:58 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.19 1997/11/04 16:29:36 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,7 +23,8 @@
 #-clx
 (progn
   (load "target:clx/clx-library")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
 
 (pushnew :motif *features*)
 
diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 460aea7169864d4ed197d58d9fac56d468ce4945..f9c557514c93abeb0ba9a9d354cce596f5ffa69b 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -10,7 +10,8 @@
 #+(and (not pcl) (not no-pcl-clx))
 (progn
   (load "target:pcl/pclload")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
 
 (pushnew :clx-ansi-common-lisp *features*)
 
diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index cd5bf78af7f3a3a31de425c8e29555ba7e0bf5f1..0110923825068275690fd9da7db443acd445cf8f 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -44,7 +44,8 @@
   #+(and (not pcl) (not no-pcl-clx))
   (load "target:pcl/pclload")
   (load "target:clx/clx-library")
-  (ext:purify))
+  #+gencgc (gc :full t)
+  #-gencgc (ext:purify))
   
 (with-compiler-log-file
     ("target:compile-hemlock.log"