Index: TODO
===================================================================
diff -u -rf82cce9b04850ec9aea91bb6374deefb44a6d2a4 -rdfa0f22e1cc0b5d1d9b1f8bcc3ffbccb68737540
--- TODO	(.../TODO)	(revision f82cce9b04850ec9aea91bb6374deefb44a6d2a4)
+++ TODO	(.../TODO)	(revision dfa0f22e1cc0b5d1d9b1f8bcc3ffbccb68737540)
@@ -1849,6 +1849,9 @@
   // last case first
   // why OBJECT? is NSF_CMETHOD used without PROC?
 
+- undo volatile fixes in serializer when volatile is revived.
+  #set s [:new -childof [::nsf::current object]]
+  #$s volatile
 
 - "-returns" 
   * leave syntax as is for method?
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]
     }