diff --git a/pcl/cache.lisp b/pcl/cache.lisp
index d80e95d78822c9838c1da053aeeb2764baf8c824..fe07ec4da0ce99c9f681fe3f40ff9653e5b01853 100644
--- a/pcl/cache.lisp
+++ b/pcl/cache.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.32 2003/05/17 19:38:57 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cache.lisp,v 1.33 2003/05/25 17:28:04 gerd Exp $")
 
 ;;;
 ;;; The basics of the PCL wrapper cache mechanism.
@@ -960,6 +960,14 @@
 			   #'line-valid-p #'location-valid-p
 			   #'line-distance #'next-line #'next-location
 			   #'line-primary #'line-primary-location))
+       ;;
+       ;; This does nothing but ensure that LEAF-EVER-USED for the
+       ;; inline function INVALID-WRAPPER-P is true, even if the local
+       ;; function above using it is deleted.  In other words it's
+       ;; only for getting rid of some disturbing compiler notes, and
+       ;; it should really be fixed in the compiler, if anywhere.  I'm
+       ;; not in the mood, at present.
+       #'invalid-wrapper-p
        ,@body)))