diff --git a/Utils/find_new_cards.pl b/Utils/find_new_cards.pl
index f5fce14fc0..7933531c25 100644
--- a/Utils/find_new_cards.pl
+++ b/Utils/find_new_cards.pl
@@ -8,16 +8,18 @@ my $addedCards;
 my $GIT_CMD = "C:\\Program Files (x86)\\Git\\bin\\git.exe";
 
 my $text = `\"$GIT_CMD\" tag`;
+print "Assuming the tag command is on: \"$GIT_CMD\" tag\n";
 my @lines = split /\n/, $text;
 my %order_of_tags;
 
 my $tag;
 foreach $tag (@lines)
 {
+    my $orig_num = $tag;
     my $num = $tag;
     if ($num =~ m/(\d+)\.(\d+).(\d+)v(\d+)/img)
     {
-        $num = $1 * 2000 + $2 * 100 + $3 * 20 + $1;
+        $num = $1 * 2000 + $2 * 100 + $3 * 20 + $4;
         $order_of_tags {$num} = $tag;
     }
 }