diff --git a/contrib/embedded-c/embedded-c.lisp b/contrib/embedded-c/embedded-c.lisp
index 8ff12644e8af3ede1e57433867175aef7e709663..0e4d5c8556c27c012fd548df0f8d70d219aa6fed 100644
--- a/contrib/embedded-c/embedded-c.lisp
+++ b/contrib/embedded-c/embedded-c.lisp
@@ -270,4 +270,4 @@
  (defstub coredumpp ((status :int) => :int)
    "return WCOREDUMP(status);"))
 
-(provide "contrib-embedded-c")
+(provide "EMBEDDED-C")
diff --git a/contrib/games/feebs/feebs.lisp b/contrib/games/feebs/feebs.lisp
index fffd75dd1e17632dbc71cc927c4047c690a29973..e2a24613b71e90977c1bb8a77b16c764dbc40f1c 100644
--- a/contrib/games/feebs/feebs.lisp
+++ b/contrib/games/feebs/feebs.lisp
@@ -16,7 +16,7 @@
 ;;;
 ;;; To see a demo, compile and load feebs.lisp then type (feebs:feebs).
 ;;;
-;;; $Id: feebs.lisp,v 1.7 2009/09/09 15:51:27 rtoy Rel $
+;;; $Id: feebs.lisp,v 1.8 2010/05/12 02:49:35 rtoy Rel $
 ;;;
 
 (cl:in-package "COMMON-LISP")
@@ -1982,4 +1982,4 @@
 	  (t
 	   :turn-around))))
 
-(provide "contrib-games-feebs")
+(provide "FEEBS")
diff --git a/contrib/hist/hist.lisp b/contrib/hist/hist.lisp
index a995ef1cf52aee6c6a2770721b3957676a8ab906..d2388cadbe7d6b01195148b9ffe45634d4b86806 100644
--- a/contrib/hist/hist.lisp
+++ b/contrib/hist/hist.lisp
@@ -88,4 +88,4 @@
 	(t (incf (svref *hist-array* (floor (- value *hist-lower-limit*)
 					    *hist-bucket-size*))))))
 
-(provide "contrib-hist")
+(provide "HIST")
diff --git a/contrib/psgraph/psgraph.lisp b/contrib/psgraph/psgraph.lisp
index 1abf0f7733572c0d20ac689f144ba497c6d1a577..ddc373c0bfe16aa0ef2cb9fe5c083d914458753f 100644
--- a/contrib/psgraph/psgraph.lisp
+++ b/contrib/psgraph/psgraph.lisp
@@ -568,4 +568,4 @@
 	   (setf (gethash (list x y) *ancestor-cache*) (list cached-value))
 	   cached-value))))
 
-(provide "contrib-psgraph")
+(provide "PSGRAPH")
diff --git a/contrib/sprof/sprof.lisp b/contrib/sprof/sprof.lisp
index b0e4da8764f161882396d01817cf463d1dca7110..4a43156743739467ade1a3395ecb60f20e384bd1 100644
--- a/contrib/sprof/sprof.lisp
+++ b/contrib/sprof/sprof.lisp
@@ -1342,5 +1342,5 @@
 		    :verbose nil
 		    :print nil :progress nil))))
 
-(provide "contrib-sprof")
+(provide "SPROF")
 ;;; End of file.