diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 1aed4a1e7a..1b6d765ef2 100755
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -27,6 +27,8 @@ PREDICATE: struct-class < tuple-class
 
 M: struct-class valid-superclass? drop f ;
 
+SLOT: fields
+
 : struct-slots ( struct-class -- slots )
     "c-type" word-prop fields>> ;