diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 796dc30b35f70c2d6ff0f78036a63b8a45fbe9b8..29c66642da78ac7c641e4243c3a44d84f4ab4e45 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -183,7 +183,7 @@ sub refresh_internal
   $objreg->verify_toc (\&verify_toc_item, \@hdr);
   print "toc verfified\n";
   my $toc= $objreg->load_single_toc ($store);
-  print "toc: ", Dumper ($toc);
+  # print "toc: ", Dumper ($toc);
 
   my $md5cat= new md5cat ();
   $md5cat->read_flist ($DEFAULT_file_list);