Index: /trunk/ccl/level-1/l1-pathnames.lisp
===================================================================
--- /trunk/ccl/level-1/l1-pathnames.lisp	(revision 501)
+++ /trunk/ccl/level-1/l1-pathnames.lisp	(revision 502)
@@ -712,6 +712,5 @@
 (defparameter *module-search-path* (list
                                     (cons-pathname '(:absolute "bin") nil nil "ccl")
-                                    (cons-pathname  nil nil nil "home")
-                                    (cons-pathname  nil nil nil "ccl")
+                                    (cons-pathname  '(:absolute "openmcl" "modules") nil nil "home")
                                     (cons-pathname '(:absolute "lib") nil nil "ccl")
 				    (cons-pathname '(:absolute "library") nil nil "ccl")