diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 76140c6d8..2bd0c00e4 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -222,8 +222,8 @@
 	      (acons name vicinity *vicinity-table*)))))
 
 (define (install-require-module name vicinity-name file-name)
-  (if (not *catalog*)			;Fix which loads catalog in
-      (require:provided? 'random))	;slib2b2
+  (if (not *catalog*)	     ;Fix which loads catalog in slib
+      (catalog:get 'random)) ;(doesn't load the feature 'random)
   (let ((entry (assq name *catalog*))
 	(vicinity (cdr (assq vicinity-name *vicinity-table*))))
     (let ((path-name (in-vicinity vicinity file-name)))