Index: generic/mk_predefined.xotcl
===================================================================
diff -u -r6ef3475add453ab5c2d62ca807a545bf4bc0686a -r2d07f2bafa5332c5e30f4969b4233d2345eab832
--- generic/mk_predefined.xotcl	(.../mk_predefined.xotcl)	(revision 6ef3475add453ab5c2d62ca807a545bf4bc0686a)
+++ generic/mk_predefined.xotcl	(.../mk_predefined.xotcl)	(revision 2d07f2bafa5332c5e30f4969b4233d2345eab832)
@@ -11,11 +11,10 @@
 regsub -all {"} $content {\"} content             ;#"
 regsub -all "\[ \]+\n" $content \n content        ;# remove trailing space
 regsub -all "\n\[ \t\]+" $content \n content      ;# remove leading space
+while {[regsub -all "\n#\[^\n\]*\n" $content \n content]>0} {
+    ;# remove comment lines
+}
 regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
-regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
-regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
-regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
-regsub -all "\n#\[^\n\]*\n" $content \n content   ;# remove comment lines
 regsub -all "\[\n\]+" $content \n content         ;# remove empty lines
 regsub -all "\n}" $content "}" content            ;# newlines btwn braces
 regsub -all "\n" $content "\\n\"\n\"" content