By default, use a two-column index.
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 2e11a50..fd1c281 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -31,6 +31,9 @@
 $CHILDLINE = "\n<p><hr>\n";
 $VERBOSITY = 0;
 
+# default # of columns for the index
+$INDEX_COLUMNS = 2;
+
 
 # A little painful, but lets us clean up the top level directory a little,
 # and not be tied to the current directory (as far as I can tell).
@@ -192,7 +195,7 @@
 
 sub insert_index{
     my($mark,$datafile) = @_;
-    my $index = `$myrootdir/tools/buildindex.py $datafile`;
+    my $index = `$myrootdir/tools/buildindex.py --columns $INDEX_COLUMNS $datafile`;
     s/$mark/$index/;
 }