--- lib/Search/TokyoDystopia.pm	2008/08/18 18:53:39	22
+++ lib/Search/TokyoDystopia.pm	2008/08/18 18:55:38	23
@@ -45,6 +45,7 @@
 tcidbiterinit
 tcidbiternext
 tcidbsync
+tcidboptimize
 );
 
 =head1 NAME
@@ -154,6 +155,10 @@
 
   my $success = tcidbsync( $idb );
 
+=head2 tcidboptimize
+
+  my $success = tcidboptimize( $idb );
+
 =cut
 
 =head1 KNOWN BUGS