--- ./lib/fields.t-pre	Fri Jul 19 16:49:58 2002
+++ ./lib/fields.t	Tue Nov 19 01:11:20 2002
@@ -10,7 +10,7 @@ BEGIN {
            $w++;
            return;
        }
-       print $_[0];
+       print STDERR $_[0];
    };
 }
 
--- ./lib/constant.t-pre	Fri Jul 19 16:49:58 2002
+++ ./lib/constant.t	Tue Nov 19 01:14:46 2002
@@ -10,7 +10,7 @@ use vars qw{ @warnings };
 BEGIN {				# ...and save 'em for later
     $SIG{'__WARN__'} = sub { push @warnings, @_ }
 }
-END { print @warnings }
+END { print STDERR @warnings }
 
 ######################### We start with some black magic to print on failure.
 
