--- db/prgsrc/createindex.pl	2000/10/18 18:46:30	1.2
+++ db/prgsrc/createindex.pl	2000/10/18 21:25:34	1.3
@@ -26,7 +26,7 @@ The database, user and password are hard
 
 Boris Veytsman
 
-=head1 $Id: createindex.pl,v 1.2 2000/10/18 18:46:30 boris Exp $
+=head1 $Id: createindex.pl,v 1.3 2000/10/18 21:25:34 boris Exp $
 
 =cut
 
@@ -64,7 +64,7 @@ sub PrintAll {
     my (@Tours) = &GetTours($dbh, $Id);
     if ($Id) {
 	if ($Tournament{'Type'} eq 'ç') {
-	    for (my $i=0; $i<$depth; $i++) {
+	    for (my $i=0; $i<=$depth; $i++) {
 		print "\t";
 	    }
 	    print $Tournament{'Title'}, "\n";