Index: trunk/lisp/lcadr/ccdisk.lisp
===================================================================
--- trunk/lisp/lcadr/ccdisk.lisp	(revision 203)
+++ trunk/lisp/lcadr/ccdisk.lisp	(revision 204)
@@ -590,3 +590,3 @@
   (SETQ CC-DISK-TYPE NIL)))
 
-(IF-FOR-LISPM (ADD-INITIALIZATION "CADR" '(CC-INITIALIZE-ON-STARTUP) '(COLD)))
+(IF-FOR-LISPM (ADD-INITIALIZATION "CADR" '(CC-INITIALIZE-ON-STARTUP) '(BEFORE-COLD)))