Index: /trunk/ccl/lib/defstruct.lisp
===================================================================
--- /trunk/ccl/lib/defstruct.lisp	(revision 275)
+++ /trunk/ccl/lib/defstruct.lisp	(revision 276)
@@ -279,5 +279,5 @@
 
 (defun copy-structure (source)
-  (copy-uvector (require-type source 'structure)))
+  (copy-uvector (require-type source 'structure-object)))
 
 (provide 'defstruct)