diff --git a/code/save.lisp b/code/save.lisp
index 1198b0d07f54878c953fb71677809a5cc4f6b5ff..cb7673cce4412746f3a9a0adfb5ab0cc3ed31366 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -8,7 +8,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.2 1990/06/25 21:00:16 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.1.1.3 1990/07/02 04:36:58 wlott Exp $
 ;;;
 ;;; Dump the current lisp image into a core file.  All the real work is done
 ;;; be C.
@@ -85,8 +85,6 @@
   :print-herald
       If true, print out the lisp system herald when starting."
   
-  (declare (ignore purify root-structures))
-  #+nil
   (if purify
       (purify :root-structures root-structures)
       (gc))