--- lib/Search/TokyoDystopia.pm	2008/08/18 19:01:00	25
+++ lib/Search/TokyoDystopia.pm	2008/08/18 19:04:10	26
@@ -48,6 +48,7 @@
 tcidboptimize
 tcidbvanish
 tcidbcopy
+tcidbpath
 );
 
 =head1 NAME
@@ -169,6 +170,10 @@
 
   my $success = tcidbcopy( $idb, '/path/of/copy' );
 
+=head2 tcidbpath
+
+  my $path = tcidbpath( $idb );
+
 =cut
 
 =head1 KNOWN BUGS