diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 1fc35eb50066dfb3b4385a855293791371d94ec6..e0f867f460c7ed6ef39633ac54b4d5d2914d82f3 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -622,10 +622,12 @@ sub remove_from_store
   }
   elsif ($be eq 'MongoDB')
   {
+    my $_cat= $objreg->{'_cat'};
     foreach my $item (@$drop_list)
     {
       my ($id_str, $path)= @$item;
-      $objreg->{'_cat'}->remove ( { 'key' => $id_str, 'type' => $objreg->{'key'},
+      print "drop: key=[$id_str] store=[$store] path=[$path]\n";
+      $_cat->remove ( { 'key' => $id_str, 'type' => $objreg->{'key'},
          'store' => $store, 'path' => $path } );
     }
     return {}; # TODO: TA::Hasher variant returns dropped items