--- capa/capa51/GUITools/webpage.tcl	1999/12/07 19:10:47	1.2
+++ capa/capa51/GUITools/webpage.tcl	2000/01/05 21:11:15	1.3
@@ -195,24 +195,28 @@ proc main {} {
 	class.* -
 	index.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- class.html 5.1 -->"
 	    puts [subst -nocommands ${class.head}]
 	    optionlist class
 	    puts [subst -nocommands ${class.tail}]
 	}
 	emailid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- emailid.html 5.1 -->"
 	    puts [subst -nocommands ${emailid.head}]
 	    optionlist emailid
 	    puts [subst -nocommands ${emailid.tail}]
 	}
 	getid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- getid.html 5.1 -->"
 	    puts [subst -nocommands ${getid.head}]
 	    optionlist getid
 	    puts [subst -nocommands ${getid.tail}]
 	}
 	capaid.* {
 	    puts "Content-type: text/html\n\n"
+	    puts "<!-- capaid.html 5.1 -->"
 	    puts [subst -nocommands ${capaid.head}]
 	    optionlist capaid
 	    puts [subst -nocommands ${capaid.tail}]