--- teTeX-1.0/texk/tetex/thumbpdf.bug19278	Wed Dec 27 13:08:49 2000
+++ teTeX-1.0/texk/tetex/thumbpdf	Wed Dec 27 13:09:49 2000
@@ -20,7 +20,7 @@
 # for installation purposes.
 #
 my $file        = "thumbpdf.pl";
-my $program     = uc($file =~ /^(\w+)/, $1);
+my $program     = uc($file);
 my $version     = "1.11";
 my $date        = "2000/01/19";
 my $author      = "Heiko Oberdiek";