Index: library/serialize/serializer.tcl
===================================================================
diff -u -r6d8e3872bf20cb1ec9ede91101daff85548a46e9 -r4454585cc13933eceea7815732a3d889e47a0f97
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 6d8e3872bf20cb1ec9ede91101daff85548a46e9)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 4454585cc13933eceea7815732a3d889e47a0f97)
@@ -410,7 +410,8 @@
 
     :public class-object method deepSerialize {-ignoreVarsRE -ignore -map args} {
       :resetPattern
-      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}