--- lib/Search/TokyoDystopia.pm	2008/08/18 18:32:55	19
+++ lib/Search/TokyoDystopia.pm	2008/08/18 18:44:47	20
@@ -42,6 +42,7 @@
 IDBSTOKPRE
 IDBSTOKSUF
 tcidbiterinit
+tcidbiternext
 );
 
 =head1 NAME
@@ -137,7 +138,11 @@
 
 =head2 tcidbiterinit
 
-  my $success = tcidbiterinit;
+  my $success = tcidbiterinit( $idb );
+
+=head2 tcidbiternext
+
+  my $id = tcidbiternext( $idb );
 
 =cut