diff --git a/contrib/ecl-cdb/ecl-cdb.lisp b/contrib/ecl-cdb/ecl-cdb.lisp
index bd9219fd1..723c39f25 100644
--- a/contrib/ecl-cdb/ecl-cdb.lisp
+++ b/contrib/ecl-cdb/ecl-cdb.lisp
@@ -73,7 +73,7 @@
           (ash (read-byte stream) 24)))
 
 (defun write-word (byte stream)
-  (declare (type :uint32-t byte)
+  (declare (type (unsigned-byte 32) byte)
            (stream stream)
            (optimize speed (safety 0)))
   (write-byte (logand #xff byte) stream)
@@ -88,7 +88,7 @@
 
 (defun to-cdb-hash (key-vector)
   (declare (type (array (unsigned-byte 8) (*)) key-vector))
-  (loop with h of-type (unsigned-integer 32) = 5381
+  (loop with h of-type (unsigned-byte 32) = 5381
      for byte of-type (unsigned-byte 8) across key-vector
      do (setf h (logxor (logand #xffffffff
                                 (+ (ash (logand #.(ash #xffffffff -5) h)