Index: /trunk/ccl/level-1/l1-files.lisp
===================================================================
--- /trunk/ccl/level-1/l1-files.lisp	(revision 508)
+++ /trunk/ccl/level-1/l1-files.lisp	(revision 509)
@@ -1203,5 +1203,5 @@
 	  (unless (some (lambda (p) (funcall p module))
 			*module-provider-functions*)
-	    (error "Module ~A was not provided by any function on" module '*module-provider-functions*)))))
+	    (error "Module ~A was not provided by any function on ~S." module '*module-provider-functions*)))))
     (values module
 	    (set-difference *modules* original-modules))))