--- doc/help/rebuildLabelHash.pl	2002/07/18 19:57:14	1.3
+++ doc/help/rebuildLabelHash.pl	2003/03/27 18:44:35	1.5
@@ -39,7 +39,7 @@ chdir "../../loncom/html/adm/help/";
 unlink 'fragmentLabels.gdbm' if ( -e 'fragmentLabels.gdbm' );
 print "Wiped old fragmentLabels.gdbm.\n";
 
-tie (my %fragmentLabels, 'GDBM_File', 'fragmentLabels.gdbm', 1, 0);
+tie (my %fragmentLabels, 'GDBM_File', 'fragmentLabels.gdbm', &GDBM_WRCEAT(), 0660);
 my $error = 0;
 
 chdir "tex";