Index: test/wapptest.tcl
==================================================================
--- test/wapptest.tcl
+++ test/wapptest.tcl
@@ -41,10 +41,15 @@
 
   set G(sqlite_version) "unknown"
 
   # Either "config", "running" or "stopped":
   set G(state) "config"
+
+  set G(host) "(unknown host)"
+  catch { set G(host) [exec hostname] } 
+  append G(host) " $::tcl_platform(os) $::tcl_platform(osVersion)"
+  append G(host) " $::tcl_platform(machine) $::tcl_platform(byteOrder)"
 }
 
 # Check to see if there are uncommitted changes in the SQLite source
 # directory. Return true if there are, or false otherwise.
 #
@@ -281,11 +286,13 @@
         WARNING: Uncommitted changes in checkout.
       </div>
     }
   }
 
+  set host $G(host)
   wapp-trim {
+      <div class=div>%string($host)</div>
       <div class=div id=controls> 
       <form action="control" method="post" name="control">
   }
 
   # Build the "platform" select widget.