--- loncom/xml/lonxml.pm	2002/01/01 16:37:20	1.143
+++ loncom/xml/lonxml.pm	2002/01/02 13:18:26	1.144
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.143 2002/01/01 16:37:20 www Exp $
+# $Id: lonxml.pm,v 1.144 2002/01/02 13:18:26 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1198,7 +1198,7 @@ sub register_insert {
     my $line = $data[$i];
     my ($mnemonic,@which) = split(/ +/,$line);
     my $tag = $insertlist{"$tagnum.tag"};
-    for (my $j=0;$j <$#which;$j++) {
+    for (my $j=0;$j <=$#which;$j++) {
       if ( $which[$j] eq 'Y' ) {
 	if ($insertlist{"$j.show"} ne 'no') {
 	  push(@{ $insertlist{"$tag.which"} },$j);