Index: library/serialize/serializer.tcl
===================================================================
diff -u -rda37d0fc8cc3732a3ee8cbaaac2703af01ba3334 -rc4997e0189bb712287aa53d12bb3e332acfb781d
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision da37d0fc8cc3732a3ee8cbaaac2703af01ba3334)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision c4997e0189bb712287aa53d12bb3e332acfb781d)
@@ -486,7 +486,7 @@
     }
 
     # reuse warn here as well
-    :alias warn [Serializer info method handle warn]
+    :alias warn [Serializer info method registrationhandle warn]
 
     #
     # Methods to be executed at the begin and end of serialize all
@@ -766,7 +766,7 @@
 	set def ""
       } else {
 	set def [$o {*}$modifier info method definition $m]
-	set handle [$o {*}$modifier info method handle $m]
+	set handle [$o {*}$modifier info method registrationhandle $m]
 	set returns [::nsf::method::property $o $handle returns]
 	if {$returns ne ""} {append def \n [list ::nsf::method::property $o $handle returns $returns]}
       }