diff --git a/code/struct.lisp b/code/struct.lisp
index de5719767947e474411b01bd4cdff931f98d18b8..d102553a2538d16820f3e5252ea7edbf48054662 100644
--- a/code/struct.lisp
+++ b/code/struct.lisp
@@ -17,11 +17,10 @@
 (in-package 'c)
 
 #+new-compiler
-(proclaim '(inline structurify))
-#+new-compiler
-(defun structurify (structure)
+(defun structurify (vec)
   "Frobs a vector to turn it into a named structure.  Returns the vector."
-  (set-header-data structure vm:vector-structure-subtype))
+  (declare (simple-vector vec))
+  (structurify vec))
 
 
 (defstruct (defstruct-description