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