--- branches/CPAN/waisquery.y	2000/04/28 15:41:10	11
+++ branches/CPAN/waisquery.y	2000/05/09 11:29:45	19
@@ -95,7 +95,7 @@
 %%
 use strict;
 sub yyerror {
-  print "yyeror: @_ $.\n";
+  warn "yyerror: @_ $.\n";
 }
 
 for (qw(and or not phonix soundex)) {
@@ -119,7 +119,7 @@
   } else {
     $verbose = $VERBOSE{$token};
   }
-  print "yylex($token=$verbose$val)\n";
+  warn "yylex($token=$verbose$val)\n";
   return $token;
 }