1 files changed, 5 insertions, 3 deletions
diff --git a/src/build/tocgen/mkpnortoc.pl b/src/build/tocgen/mkpnortoc.pl
index 5a3d95d15..f4e5464f5 100755
--- a/src/build/tocgen/mkpnortoc.pl
+++ b/src/build/tocgen/mkpnortoc.pl
@@ -13,7 +13,7 @@ use XML::LibXML;
 use File::Basename;
 
 my $programName = File::Basename::basename $0;
-my $g_trace = 0; # 1 -> enable traces
+my $g_trace = 0; # >0 enable traces
 $tocDataFile = "";
 $tocOutFile = "";
 
@@ -163,9 +163,10 @@ sub parseTocEntry
 	{
 	    last;
 	}
-	elsif($curSibling->nodeName eq "text")
+	elsif(($curSibling->nodeName eq "text") ||
+	      ($curSibling->nodeName eq "#text"))
 	{
-	    #print "skipping ".$curSibling->nodeName."\n";
+	    trace(1, "ignoring ".$curSibling->nodeName);
 	}
 	elsif($curSibling->nodeName eq "length")
 	{
@@ -174,6 +175,7 @@ sub parseTocEntry
 	}
 	else
 	{
+	    trace(1, "Parsing ".$curSibling->nodeName);
 	    $fieldLen = writeElementToBinFile($i_FILEHANDLE, $curSibling);
 	    $sumFieldLen = $sumFieldLen + $fieldLen;