Index: /trunk/ccl/level-1/l1-pathnames.lisp
===================================================================
--- /trunk/ccl/level-1/l1-pathnames.lisp	(revision 506)
+++ /trunk/ccl/level-1/l1-pathnames.lisp	(revision 507)
@@ -715,5 +715,6 @@
                                     (cons-pathname '(:absolute "lib") nil nil "ccl")
 				    (cons-pathname '(:absolute "library") nil nil "ccl")
-				    (cons-pathname '(:absolute "examples") nil nil "ccl"))
+				    (cons-pathname '(:absolute "examples") nil nil "ccl")
+				    (cons-pathname '(:absolute "tools") nil nil "ccl"))
   "Holds a list of pathnames to search for the file that has same name
    as a module somebody is looking for.")