Index: library/serialize/Serializer.xotcl =================================================================== diff -u -r5229e26202a93f58dfcec181cf633882b7849f16 -r321a21cbb0beec854bfc651e167c32ded2707a3a --- library/serialize/Serializer.xotcl (.../Serializer.xotcl) (revision 5229e26202a93f58dfcec181cf633882b7849f16) +++ library/serialize/Serializer.xotcl (.../Serializer.xotcl) (revision 321a21cbb0beec854bfc651e167c32ded2707a3a) @@ -426,6 +426,7 @@ } Serializer instproc deepSerialize o { # assumes $o to be fully qualified +puts stderr CALL-allChildren my serialize-objects [my allChildren $o] 1 } Serializer instproc serializeMethod {object kind name} { @@ -530,7 +531,7 @@ set s [my new -childof [self] -volatile] foreach o [eval $s configure $args] { append r [$s deepSerialize [$o]] - } + } if {[$s exists map]} {return [string map [$s map] $r]} return $r }