Index: library/serialize/serializer.tcl
===================================================================
diff -u -rb3c37d297a0618fd83c8df47599a454665338faa -rdfa0f22e1cc0b5d1d9b1f8bcc3ffbccb68737540
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision b3c37d297a0618fd83c8df47599a454665338faa)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision dfa0f22e1cc0b5d1d9b1f8bcc3ffbccb68737540)
@@ -363,7 +363,8 @@
 
       # don't filter anything during serialization
       set filterstate [::nsf::configure filter off]
-      set s [:new -childof [::nsf::current object] -volatile]
+      set s [:new -childof [::nsf::current object]]
+      $s volatile
       if {[info exists ignoreVarsRE]} {$s ignoreVarsRE $ignoreVarsRE}
       if {[info exists ignore]} {$s ignore $ignore}
 
@@ -404,7 +405,8 @@
     }
 
     :class-object method methodSerialize {object method prefix} {
-      set s [:new -childof [::nsf::current object] -volatile]
+      set s [:new -childof [::nsf::current object]]
+      $s volatile
       concat $object [$s method-serialize $object $method $prefix]
     }