diff --git a/smkridge/204/make-glossary.pl b/smkridge/204/make-glossary.pl
index 3aeabc875..ca8ed0cc3 100644
--- a/smkridge/204/make-glossary.pl
+++ b/smkridge/204/make-glossary.pl
@@ -17,7 +17,7 @@ if ($usage) {
 }
 
 unless ($ARGV[0]) {
-	print "Specify a CSV file name as the program's argument (e.g. qm.csv)\n";
+	print "Specify a CSV file name as the program's argument (e.g. glossary.csv)\n";
 	usage();
 }
 
@@ -63,7 +63,10 @@ my $output="";
 my $templine;
 my $lcletter;
 my $letter = "";
-print "Progress: *";
+
+unless ($no_verbose_progress) {
+	print "Progress: *";
+}
 
 my %areanames = 
 ("ariston.html", "Deep South",
@@ -105,7 +108,9 @@ while (<CSV>) {
 	
 	$output = "$output$templine";
 	
-	print "*";
+	unless ($no_verbose_progress) {
+		print "*";
+	}
 }
 
 print TABLE << "END";
@@ -126,7 +131,9 @@ $output
 END
 
 close TABLE;
-print "\nInformation: Done\n";
+unless ($no_verbose_progress) {
+	print "\nInformation: Done\n";
+}
 
 # Parse the CSV file
 sub parse_csv {