diff --git a/bin/genservice b/bin/genservice
index 0ddea579b..738bace91 100755
--- a/bin/genservice
+++ b/bin/genservice
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: genservice,v 1.3 2002/08/14 19:07:48 mdb Exp $
+# $Id: genservice,v 1.4 2002/08/20 19:26:23 mdb Exp $
 #
 # This script is used to generate invocation service marshaller and
 # unmarshaller classes based on invocation service interface definitions.
@@ -156,7 +156,7 @@ while ($srcfile = shift) {
             my $lmethod = {
                 "mname" => $methname,
                 "mcode" => to_caps($methname),
-                "mcodeval" => $lmethcount++,
+                "mcodeval" => ++$lmethcount,
                 "arglist" => gen_arglist(@trimmed_args),
                 "wrapped_args" => wrap_arglist(0, @trimmed_args),
                 "unwrapped_args" => unwrap_arglist(@trimmed_args),