diff --git a/Utils/gen-list-unimplemented-cards-for-set.pl b/Utils/gen-list-unimplemented-cards-for-set.pl
index 98a8da096ef..3d8d2849a3c 100755
--- a/Utils/gen-list-unimplemented-cards-for-set.pl
+++ b/Utils/gen-list-unimplemented-cards-for-set.pl
@@ -89,6 +89,7 @@ sub toCamelCase {
 # TODO: check for basic lands with ending 1,2,3,4,5 ...
 my %cardNames;
 my $toPrint = '';
+my $setAbbr = $sets{$setName};
 foreach my $card (sort cardSort @setCards) {
 	my $className = toCamelCase(@{$card}[0]);
 
@@ -102,7 +103,7 @@ foreach my $card (sort cardSort @setCards) {
 		}
                 my $cardName = @{$card}[0];
                 $cardName =~ s/ /+/g;
-		$toPrint .= "@{$card}[2]|[@{$card}[0]](https://magiccards.info/query?q=!$cardName)";
+		$toPrint .= "@{$card}[2]|[@{$card}[0]](https://scryfall.com/search?q=!\"$cardName\" e:$setAbbr)";
 	}
 }
 
@@ -127,7 +128,7 @@ foreach $cn (sort keys (%cardNames))
     }
     my $cn2 = $cn;
     $cn2 =~ s/ /+/g;
-    print ISSUE_TRACKER "- $x_or_not [$cn](https://magiccards.info/query?q=!$cn2)\n";
+    print ISSUE_TRACKER "- $x_or_not [$cn](https://scryfall.com/search?q=!\"$cn2\" e:$setAbbr)\n";
 }
 close ISSUE_TRACKER;
-print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($sets{$setName}) ."_issue_tracker.txt\n");
+print ("Tracking Issue text for a new Github issue (similar to https://github.com/magefree/mage/issues/2215): " . lc($setAbbr) ."_issue_tracker.txt\n");