diff --git a/interface/inspect.lisp b/interface/inspect.lisp
index 2af0643d2a12abbbbf1e691a1c4b03fa836a2e11..822c4399a91fb5cb2b5c3f12fb18ee557842ec91 100644
--- a/interface/inspect.lisp
+++ b/interface/inspect.lisp
@@ -137,7 +137,7 @@
   (typecase object
     (pcl::std-instance
      (format nil "Instance ~a of Class ~a"
-	     object (pcl:class-name (pcl:class-of object))))
+	     object (pcl::class-name (pcl::class-of object))))
     (function (format nil "~a" object))
     (structure
      (let ((default (format nil "~a" object)))
@@ -494,7 +494,7 @@
 
 (defun display-clos-pane (object)
   (with-inspector-pane (object)
-    (let* ((class (pcl:class-of object))
+    (let* ((class (pcl::class-of object))
 	   (slotds (pcl::slots-to-inspect class object))
 	   (view (create-row-column form "rowColumn"
 				    :left-attachment :attach-form