--- trunk/t/04words.t	2004/10/06 15:39:56	22
+++ trunk/t/04words.t	2004/10/07 16:21:54	23
@@ -22,7 +22,7 @@
 my $max = 10000;
 
 if (-r $dict) {
-	print STDERR " making B-Tree from $max words in $dict\n";
+	diag "making B-Tree from $max words in $dict";
 
 	open(D, "$dict") || die "can't open '$dict': $!";
 
@@ -51,13 +51,13 @@
 		print T $t->to_string;
 		close(T);
 	}
-	print STDERR " words.txt created\n";
+	diag "words.txt created";
 
 	if (open(T,"> words.dot")) {
 		print T $t->to_dot;
 		close(T);
 	}
-	print STDERR " words.dot created\n";
+	diag "words.dot created";
 
 	cmp_ok($t->to_jsfind("./html/words"), '==', $max, " jsfind index");
 }