Index: /lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm
===================================================================
--- /lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm (revision 3885)
+++ /lang/perl/ShipIt-Step-CommitMessageWrap/trunk/lib/ShipIt/Step/CommitMessageWrap.pm (revision 3886)
@@ -34,5 +34,5 @@
         my $msg  = shift;
         $msg = sprintf $self->{format}, $msg;
-        $commit->($c, $ver, $msg, @_);
+        $tag_version->($c, $ver, $msg, @_);
     };
     use strict;