--- tools_old/winemaker	2007-11-18 02:56:35.000000000 -0600
+++ tools/winemaker	2007-11-18 04:03:14.000000000 -0600
@@ -1103,7 +1103,7 @@
       my $directory=get_directory_contents $dirname;
       my $found;
       foreach my $dentry (@$directory) {
-	if ($dentry =~ /^$component$/i or
+	if ($dentry =~ /^\Q$component\E$/i or
             (defined $renamed and $dentry =~ /^$renamed$/i)
            ) {
 	  $dirname.="$dentry/";