Index: library/serialize/serializer.tcl
===================================================================
diff -u -r6e4c08c5cf598e08cbc29516f84b09e5983e347c -r499667753aacfb7f77e708f14bf3d0b000a3e9fe
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 6e4c08c5cf598e08cbc29516f84b09e5983e347c)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 499667753aacfb7f77e708f14bf3d0b000a3e9fe)
@@ -610,7 +610,7 @@
     :method serializeExportedMethods {s} {
       set r ""
       foreach k [array names :exportMethods] {
-        lassign $f o p m
+        lassign $k o p m
         if {![:methodExists $o $p $m]} {
           :warn "Method does not exist: $o $p $m"
           continue