diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor
index 2c8f68c651..958a7ea55c 100644
--- a/extra/classes/struct/struct-tests.factor
+++ b/extra/classes/struct/struct-tests.factor
@@ -25,3 +25,6 @@ STRUCT: bar
         [ foo>> z>> ]
     } cleave
 ] unit-test
+
+[ 7654 ] [ S{ foo f 98 7654 f } y>> ] unit-test
+[ 7654 ] [ S{ foo { y 7654 } } y>> ] unit-test