diff --git a/test-templates/make-testfile b/test-templates/make-testfile
index 60dbdb1250..fe28b33089 100755
--- a/test-templates/make-testfile
+++ b/test-templates/make-testfile
@@ -222,6 +222,7 @@ sub print_preamble {
     my @date = localtime(time());
     my $year = $date[5] + 1900;
     delete $indirs[-1];
+    $inname =~ tr/-/_/;
     $indirs[0] = "";
     eval{
 	$indir = File::Spec->catfile((@indirs, $inName));