diff --git a/btrbk b/btrbk
index 628d8d9..8f369ca 100755
--- a/btrbk
+++ b/btrbk
@@ -481,12 +481,12 @@ sub ERROR { _log_cont("ERROR: ",   @_) }
 
 sub INFO_ONCE {
   my $t = shift;
-  if($warn_once{INFO}{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
+  if($warn_once{INFO}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
   else { $warn_once{INFO}{$t} = 1; INFO($t, @_); return 1; }
 }
 sub WARN_ONCE {
   my $t = shift;
-  if($warn_once{WARN}{$t}) { TRACE("INFO(again): $t", @_) if($do_trace); return 0; }
+  if($warn_once{WARN}{$t}) { TRACE("WARNING(again): $t", @_) if($do_trace); return 0; }
   else { $warn_once{WARN}{$t} = 1; WARN($t, @_); return 1; }
 }