diff --git a/t/Genewise.t b/t/Genewise.t
index f309426d..3f9b6217 100644
--- a/t/Genewise.t
+++ b/t/Genewise.t
@@ -24,14 +24,14 @@ END {
 }
 
 ok(1);
-my $verbose = -1;
+my $verbose = $ENV{BIOPERLDEBUG} ? 1 : -1;
 my @params = ('-verbose' => $verbose, 
 	      'silent' => 1, 
 	      'quiet' => 1);
 
 my  $factory = Bio::Tools::Run::Genewise->new(@params);
 my $version = $factory->version;
-warn("version is $version\n");
+warn("version is $version\n") if $verbose > 0;
 ok $factory->isa('Bio::Tools::Run::Genewise');
 unless ($factory->executable) {
    warn("Genewise program not found. Skipping tests $Test::ntest to $NTESTS.\n");