Index: library/serialize/Serializer.xotcl
===================================================================
diff -u -r6d8f5916b802c8890df470326886526a4b62c8a4 -r7050a52ac53992d9a3aec12e48b0fa58a26449e6
--- library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 6d8f5916b802c8890df470326886526a4b62c8a4)
+++ library/serialize/Serializer.xotcl	(.../Serializer.xotcl)	(revision 7050a52ac53992d9a3aec12e48b0fa58a26449e6)
@@ -229,10 +229,10 @@
 	append cmd \t [my pcmd $setcmd] " \\\n"
       }
     }
-    foreach x {mixin invar} {
-      set v [$o info $x]
-      if {$v ne ""} {my append post_cmds [list $o $x set $v] "\n"}
-    }
+    set v [$o info mixin]
+    if {$v ne ""} {my append post_cmds [list $o mixin set $v] "\n"}
+    set v [::xotcl::assertion $o object-invar]
+    if {$v ne ""} {my append post_cmds [list ::xotcl::assertion $o object-invar $v] "\n"}
     set v [$o info filter -guards]
     if {$v ne ""} {append cmd [my pcmd [list filter $v]] " \\\n"}
     return $cmd