Index: library/serialize/serializer.tcl
===================================================================
diff -u -r6a55e4e48e5431b7b76916a8dbfb550b4cdc6edb -rc04d6db83927af060dd2407d1afa70b92ca9409f
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 6a55e4e48e5431b7b76916a8dbfb550b4cdc6edb)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision c04d6db83927af060dd2407d1afa70b92ca9409f)
@@ -798,15 +798,19 @@
       expr {[$object info method type $name] ne ""}
     }
 
-    :public object method -debug serializeExportedMethod {object kind name s} {
-      # todo: object modifier is missing
+    :public object method serializeExportedMethod {object kind name s} {
       set :targetName $object
-      if {$kind eq "method"} {
-        set modifier ""
-      } elseif {$kind eq "nsfproc"} {
-        return [::nsf::cmd::info definition $name]
-      } else {
-        set modifier "object"
+      switch $kind {
+        "inst" -
+        "method" {
+          set modifier ""
+        }
+        "nsfproc" {
+          return [::nsf::cmd::info definition $name]
+        }
+        default {
+          set modifier "object"
+        }
       }
       return [:method-serialize $object $name $modifier $s]
     }