Index: library/serialize/serializer.tcl =================================================================== diff -u -rb400253cc6c4cc2c9977ab16fb31528ef59ade91 -re415f4153e7750b77616795150822b91db1ba9d4 --- library/serialize/serializer.tcl (.../serializer.tcl) (revision b400253cc6c4cc2c9977ab16fb31528ef59ade91) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision e415f4153e7750b77616795150822b91db1ba9d4) @@ -464,7 +464,7 @@ [:frameWorkCmd ::nsf::assertion $o object-invar] \ [:frameWorkCmd ::nsf::assertion $o class-invar] } - puts stderr "*** array unset [nsf::current object] alias_dependency // size [array size :alias_dependency]" + #puts stderr "*** array unset [nsf::current object] alias_dependency // size [array size :alias_dependency]" array unset :alias_dependency return $cmd } @@ -706,7 +706,11 @@ # object serialization is fully handled by the serializer return "# [$o {*}$modifier info method definition $m]" } - return [$o {*}$modifier info method definition $m] + set def [$o {*}$modifier info method definition $m] + set handle [$o {*}$modifier info method handle $m] + set returns [::nsf::methodproperty $o $handle returns] + if {$returns ne ""} {append def \n [list ::nsf::methodproperty $o $handle returns $returns]} + return $def } ###############################