diff --git a/R/describe.s b/R/describe.s
index bef1f8ea..27aaf0d1 100644
--- a/R/describe.s
+++ b/R/describe.s
@@ -528,7 +528,7 @@ print.describe.single <-
   object <- '['(unclass(object),i)
   structure(object, descript=at$descript,
             dimensions=c(at$dimensions[1], length(object)),
-            class='describe')
+            class=class(object))
 }