diff --git a/btrbk b/btrbk
index 6fbe0c4..62f1f76 100755
--- a/btrbk
+++ b/btrbk
@@ -302,7 +302,7 @@ sub ERROR { my $t = shift; print STDERR "ERROR: $t\n";  }
 
 sub WARN_ONCE {
   my $t = shift;
-  if($warn_once{$t}) { DEBUG("WARN AGAIN: " . $t); }
+  if($warn_once{$t}) { TRACE("WARNING(again): $t"); }
   else { $warn_once{$t} = 1; WARN($t); }
 }