diff -up rpmdevtools-8.3/spectool.in.orig rpmdevtools-8.3/spectool.in

--- rpmdevtools-8.3/spectool.in.orig	2020-11-23 14:17:49.231979840 +0100

+++ rpmdevtools-8.3/spectool.in	2020-11-23 14:18:30.411761075 +0100

@@ -201,7 +201,7 @@ sub retrievable {

 sub retrieve {

 	my ($where, $url) = @_;

 	if (retrievable ($url)) {

-		my $path = File::Spec->catfile($where, $url =~ m|([^/]+)$|);

+		my $path = File::Spec->catfile($where, $url =~ m|([^/]+?)(?:\?[^/]*)?$|);

 		print "Getting $url to $path\n";

 		if (-e $path) {

 			if ($force) {