diff --git a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
index 267a9c54235878fc925a75e76ef804b31041471f..4d75639500f5afa27dd11c1cf0bd6273ca23ac45 100644
--- a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
+++ b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
@@ -152,6 +152,7 @@ foreach my $slice (@$slices) {
                 printf $log_fh "New=[%s,%s,%s,%s,%s,%s,'%s']\n", @{ $transcript_selector->encode_transcript($new_canonical) };
             }
             push @change_list,[$gene->dbID,$new_canonical->dbID];
+            $canonical_changes++;
         } elsif ($new_canonical->dbID != $old_canonical->dbID) {
             no warnings 'uninitialized';
             printf "%s (%s) changed transcript from %s (%s) to %s (%s)\n",