--- lib/PXElator/httpd.pm	2010/01/23 21:43:00	490
+++ lib/PXElator/httpd.pm	2010/01/24 11:56:30	491
@@ -290,16 +290,26 @@
 			, qq|<table>|
 		;
 		my ( $s1,$s2 ) = ( ' class=z', '' );
+		my @cols;
+
 		store::query( sub {
 			my $o = shift;
 			my $p = delete( $o->{package} );
 			delete( $o->{_id} );
 
+			if ( ! @cols ) {
+				@cols = keys %$p;
+				print $client qq|<tr><th>|
+					, join(qq|</th><th>|, @cols)
+					, qq|</th><th></th></tr>|
+				;
+			}
+
 			# XXX sigh, dump dies if we don't do this
 			delete $o->{$_} foreach ( grep { ! defined $o->{$_} } keys %$o );
 
 			print $client qq|<tr$s1><td>|
-				, join(qq|</td><td>|, map { $p->{$_} } keys %$p )
+				, join(qq|</td><td>|, map { $p->{$_} } @cols )
 				, qq|</td><td><pre>|
 				, dump( $o )
 				, qq|</pre></td></tr>\n|