Index: level-0/l0-cfm-support.lisp
===================================================================
--- level-0/l0-cfm-support.lisp	(revision 11885)
+++ level-0/l0-cfm-support.lisp	(working copy)
@@ -873,7 +873,7 @@
 	  (shlib.pathname lib) nil
 	  (shlib.base lib) nil)
     (let* ((soname (shlib.soname lib))
-           (last-dot (if soname (1+ (last-dot-pos soname)))))
+           (last-dot (if soname (last-dot-pos soname))))
       (when soname
 	(with-cstrs ((soname soname))
 	  (let* ((map (block found
@@ -885,7 +885,7 @@
 			       (unless (%null-ptr-p libname)
 				 (when (or (%cstrcmp soname libname)
                                            (and last-dot
-                                                (%cnstrcmp soname libname last-dot)))
+                                                (%cnstrcmp soname libname (1+ last-dot))))
 				   (return-from found  m)))))))))
 	    (when map
 	      ;;; Sigh.  We can't reliably lookup symbols in the library