classes.struct: store aligned size in struct-size word-prop

diff --git a/basis/classes/struct/struct.factor b/basis/classes/struct/struct.factor
index 22a80776e72b2ab2be7f087e68b063000651fa83..beddf07dd5ea565fc143ca74a15282517b9fead1 100755 (executable)
--- a/basis/classes/struct/struct.factor
+++ b/basis/classes/struct/struct.factor
@@ -246,10 +246,10 @@ M: struct binary-zero?
     slots empty? [ struct-must-have-slots ] when
     class redefine-struct-tuple-class
     slots make-slots dup check-struct-slots :> slot-specs
-    slot-specs offsets-quot call :> size
     slot-specs struct-align :> alignment
+    slot-specs offsets-quot call alignment align :> size
 
-    class  slot-specs  size alignment align  alignment  c-type-for-class :> c-type
+    class  slot-specs  size  alignment  c-type-for-class :> c-type
 
     c-type class typedef
     class slot-specs define-accessors