diff --git a/code/describe.lisp b/code/describe.lisp
index e4e1ad674acac94763c7841521f77000b7e11c37..0f19cf774f7821a844366bbaa25bb6d433096a40 100644
--- a/code/describe.lisp
+++ b/code/describe.lisp
@@ -199,7 +199,7 @@
       (describe (cadr plist)))))
 
 (defun describe-structure (x)
-  (format t "~&~S is a structure of type ~A." x (svref x 0))
+  (format t "~&~S is a structure of type ~A." x (c::structure-ref x 0))
   (dolist (slot (cddr (inspect::describe-parts x)))
     (format t "~%~A: ~S." (car slot) (cdr slot))))