diff --git a/pcl/env.lisp b/pcl/env.lisp
index 7c286fa77ca217ead9924e4daa9a2a464e435025..733b8e387fe4a3f722064b621bf209f318cdc4d0 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -201,7 +201,7 @@
     (when used
       (format stream "It uses the packages ~{~S~^, ~}.~%"
 	      (mapcar #'package-name used))))
-  (let ((users (package-use-list object)))
+  (let ((users (package-used-by-list object)))
     (when users
       (format stream "It is used by the packages ~{~S~^, ~}.~%"
 	      (mapcar #'package-name users)))))