diff --git a/src/pcl/ctor.lisp b/src/pcl/ctor.lisp
index 743a69c80..712c0efc9 100644
--- a/src/pcl/ctor.lisp
+++ b/src/pcl/ctor.lisp
@@ -390,6 +390,7 @@
            .instance.)
         `(let* ((.instance. (,allocation-function ,wrapper))
                 (.slots. (,slots-fetcher .instance.)))
+           (declare (ignorable .slots.))
            ,body
            .instance.))))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index caceea444..372f49599 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.4"
+"1.0.1.5"