--- trunk/lib/Sack/Server.pm	2010/02/15 09:40:12	270
+++ trunk/lib/Sack/Server.pm	2010/02/21 15:14:02	271
@@ -49,6 +49,7 @@
 		# parent
 		$info->{forked}->{$port} = $pid;
 		$info->{pending}->{$port} = 'forked';
+		$info->{host}->{$port} = $host;
 		return $port;
 
 	} elsif ( ! defined $pid ) {
@@ -308,7 +309,7 @@
 
 				print $send qq|<h1>Nodes</h1>|;
 				foreach my $node ( sort keys %{ $info->{forked} } ) {
-					my $attr = '';
+					my $attr = qq| title="$info->{host}->{$node}"|;
 					if ( my $pending = $info->{pending}->{$node} ) {
 						$attr .= qq| class="$pending"|;
 					}