diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 49ac8f4d26097a97b22f7a484ffcf1fa86b812ac..7307572f4d1fbbdb13f1f00681893ca7c896a0be 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -185,8 +185,8 @@ sub lookup
   my $search= shift;
 
   my $be= $obj->{'cfg'}->{'backend'};
-  print "lookup [$search] be=[$be]\n";
-  print main::Dumper ($search);
+  # print "lookup [$search] be=[$be] ", join (' ', %$search), "\n";
+  # print main::Dumper ($search);
 
   my $reg;
   if ($be eq 'TA::Hasher')