diff --git a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
index ebd2def14787c183d32d2018d80b5e9ec09892dc..267a9c54235878fc925a75e76ef804b31041471f 100644
--- a/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
+++ b/misc-scripts/canonical_transcripts/select_canonical_transcripts.pl
@@ -151,6 +151,7 @@ foreach my $slice (@$slices) {
                 print $log_fh "Old=[undef,undef,undef,undef,undef,undef,undef]\n";
                 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];
         } elsif ($new_canonical->dbID != $old_canonical->dbID) {
             no warnings 'uninitialized';
             printf "%s (%s) changed transcript from %s (%s) to %s (%s)\n",