Index: library/serialize/serializer.tcl
===================================================================
diff -u -rf9f501ffe3b3bd7a3843416f82fc6189be2634ff -r353fdf460e5124d48f9ebe0f37e23abe51494b38
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f9f501ffe3b3bd7a3843416f82fc6189be2634ff)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 353fdf460e5124d48f9ebe0f37e23abe51494b38)
@@ -1035,9 +1035,15 @@
           regsub "^(.*) (public|protected|private) object alias" $def {::nsf::method::alias \1 -per-object} def
         }
       } else {
+        if {$perObject eq ""} {
+          set returns [::nsf::method::property $o $m returns]
+        } else {
+          set returns [::nsf::method::property $o -per-object $m returns]
+        }
         set arglist [$o ::nsf::methods::${scope}::info::method parameter $m]
         lappend def ${:targetName} ${prefix}proc $m \
             $arglist \
+            {*}[expr {$returns ne "" ? [list -returns $returns] : {}}] \
             [$o ::nsf::methods::${scope}::info::method body $m]
         foreach p {pre post} {
           set cond [$o ::nsf::methods::${scope}::info::method ${p}condition $m]