Index: /trunk/ccl/lib/compile-ccl.lisp
===================================================================
--- /trunk/ccl/lib/compile-ccl.lisp	(revision 516)
+++ /trunk/ccl/lib/compile-ccl.lisp	(revision 517)
@@ -169,4 +169,6 @@
 	edit-callers
         describe
+	asdf
+	defsystem
 ))
 
Index: /trunk/ccl/lib/systems.lisp
===================================================================
--- /trunk/ccl/lib/systems.lisp	(revision 516)
+++ /trunk/ccl/lib/systems.lisp	(revision 517)
@@ -227,4 +227,6 @@
  (source-files     "ccl:bin;source-files"     ("ccl:lib;source-files.lisp"))
  
- (prepare-mcl-environment "ccl:bin;prepare-mcl-environment" ("ccl:lib;prepare-mcl-environment.lisp"))))
-
+ (prepare-mcl-environment "ccl:bin;prepare-mcl-environment" ("ccl:lib;prepare-mcl-environment.lisp"))
+ (defsystem        "ccl:tools;defsystem"      ("ccl:tools;defsystem.lisp"))
+ (asdf             "ccl:tools;asdf"	    ("ccl:tools;asdf.lisp"))))
+