Index: build/test/publish-tests
==================================================================
--- build/test/publish-tests
+++ build/test/publish-tests
@@ -24,12 +24,19 @@
 	puts stderr "Could not find kits/ directory, aborting."
 
         exit 1
 }
 
+# Define non-critical tests
 set noncriticaltests [list "05-locale"]
 
+# Define legend
+set statusdata(ok)            [list OK          green   "Software built successfully and passed all tests"]
+set statusdata(untested)      [list "NO TESTS"  yellow  "Software built successfully but no tests were run"]
+set statusdata(non-critical)  [list "USABLE"    orange  "Software built successfully and all tests were run, but some non-critical tests failed"]
+set statusdata(failed)        [list "FAILED"    red     "Some critical tests failed or the software did not build"]
+
 ##########################################################################
 ## PROCEDURES ############################################################
 ##########################################################################
 proc pretty_print_key {key} {
 	set version [lindex $key 0]
@@ -177,11 +184,14 @@
 puts $fd "    <h1>KitCreator Build and Test Status</h1>"
 puts $fd "    <p>The following table represents the status of the test results from the KitCreator test suite.</p>"
 puts $fd "    <table cellpadding=\"2\" border=\"1\">"
 foreach key [lsort -dictionary [array names allkitinfo]] {
 	puts $fd "      <tr>"
-	puts $fd "        <th><u>Tclkit for [pretty_print_key $key]</u></th>"
+	puts $fd "        <th colspan=\"5\"><u>Tclkit for [pretty_print_key $key]</u></th>"
+	puts $fd "      </tr>"
+	puts $fd "      <tr>"
+	puts $fd "        <th>Kit Features</th>"
 	puts $fd "        <th>Kit Size</th>"
 	puts $fd "        <th>Status</th>"
 	puts $fd "        <th>Log</th>"
 	puts $fd "        <th>Failed Tests</th>"
 	puts $fd "      </tr>"
@@ -189,20 +199,20 @@
 		puts $fd "      <tr>"
 		unset -nocomplain kitinfo
 		array set kitinfo $kitinfo_list
 
 		if {[llength $kitinfo(failedtests)] == 0} {
-			set status "OK"
-			set bgcolor "green"
+			set status ok
+
+			# If we are cross-compiled, note that no tests were run
+			if {[lsearch -exact $kitinfo(buildflags) xcompile] != -1} {
+				set status untested
+			}
 		} else {
-			set status "FAILED"
-			set bgcolor "yellow"
+			set status non-critical
 		}
 
-		if {[lsearch -exact $kitinfo(buildflags) xcompile] != -1} {
-			set bgcolor "yellow"
-		}
 
 		set failedtestshtml [list]
 		foreach test [lsort -dictionary $kitinfo(failedtests)] {
 			set testname [file rootname $test]
 			set testname [split $testname -]
@@ -221,35 +231,55 @@
 					break
 				}
 			}
 
 			if {[lsearch -exact $noncriticaltests $testname] == -1} {
-				set bgcolor "red"
+				set status failed
 			}
 
 			if {$loglink} {
 				lappend failedtestshtml "<small><a href=\"$test\">$testname</a></small>"
 			} else {
 				lappend failedtestshtml "<small>$testname</small>"
 			}
 		}
 
+		set statusinfo $statusdata($status)
+		set statustext [lindex $statusinfo 0]
+		set bgcolor    [lindex $statusinfo 1]
+
 		set kitdesc [pretty_print_buildinfo $kitinfo(buildflags)]
 		if {$kitinfo(built)} {
 			puts $fd "        <td><a href=\"$kitinfo(file)\">$kitdesc</a></td>"
 		} else {
 			puts $fd "        <td>$kitdesc</td>"
 		}
 		puts $fd "        <td>[pretty_print_size [file size [file join $WEBDIR $kitinfo(fullfile)]]]</td>"
-		puts $fd "        <td bgcolor=\"$bgcolor\">$status</td>"
+		puts $fd "        <td bgcolor=\"$bgcolor\">$statustext</td>"
 		puts $fd "        <td><small><a href=\"$kitinfo(buildfile)\">([pretty_print_size [file size [file join $WEBDIR $kitinfo(buildfile)]]])</a></small></td>"
 		puts $fd "        <td>[join $failedtestshtml {, }]</td>"
 		puts $fd "      </tr>"
 	}
 
+}
+puts $fd "    </table>"
+puts $fd "    <table cellpadding=\"2\" border=\"1\">"
+puts $fd "      <tr>"
+puts $fd "        <th colspan=\"2\"><small>Legend</small></th>"
+puts $fd "      </tr>"
+foreach status [list ok untested non-critical failed] {
+	set statusinfo $statusdata($status)
+	set statustext    [lindex $statusinfo 0]
+	set bgcolor       [lindex $statusinfo 1]
+	set statusdetail  [lindex $statusinfo 2]
+
+	puts $fd "      <tr>"
+	puts $fd "        <td bgcolor=\"$bgcolor\"><small>$statustext</small></td>"
+	puts $fd "        <td><small>$statusdetail</small></td>"
+	puts $fd "      </tr>"
 }
 puts $fd "    </table>"
 puts $fd "    <p>Generated on [clock format [clock seconds]]</p>"
 puts $fd "  </body>"
 puts $fd "</html>"
 
 close $fd