Index: /trunk/ccl/level-0/nfasload.lisp
===================================================================
--- /trunk/ccl/level-0/nfasload.lisp	(revision 5133)
+++ /trunk/ccl/level-0/nfasload.lisp	(revision 5134)
@@ -252,8 +252,9 @@
   
 (defun %find-pkg (name &optional (len (length name)))
+  (declare (fixnum len))
   (with-package-list-read-lock
       (dolist (p %all-packages%)
         (if (dolist (pkgname (pkg.names p))
-              (when (and (= (length pkgname) len)
+              (when (and (= (the fixnum (length pkgname)) len)
                          (dotimes (i len t)
                            ;; Aref: allow non-simple strings