Index: /trunk/source/level-0/l0-cfm-support.lisp
===================================================================
--- /trunk/source/level-0/l0-cfm-support.lisp	(revision 14974)
+++ /trunk/source/level-0/l0-cfm-support.lisp	(revision 14975)
@@ -669,5 +669,6 @@
           (unless lib
             (setq lib (%cons-shlib name name nil nil))
-            (setf (shlib.handle lib) handle))
+            (setf (shlib.handle lib) handle)
+	    (push lib *shared-libraries*))
           (incf (shlib.opencount lib))
           (values lib nil))))))