diff --git a/code/sharpm.lisp b/code/sharpm.lisp
index c24253b5fa56329d00752a782663eb18586eeda6..65338fd9a021abc31fefcdca8d9d54a4e5808cf7 100644
--- a/code/sharpm.lisp
+++ b/code/sharpm.lisp
@@ -261,7 +261,7 @@
     (cond ((listp body)
 	   (unless (symbolp (car body))
 	     (error "Structure type is not a symbol: ~S" (car body)))
-	   (let ((defstruct (info type structure-info (car body))))
+	   (let ((defstruct (info type defined-structure-info (car body))))
 	     (unless defstruct
 	       (error "~S is not a defined structure type." (car body)))
 	     (unless (c::dd-constructor defstruct)