--- trunk/lib/Frey/ClassBrowser.pm	2008/11/28 13:18:18	582
+++ trunk/lib/Frey/ClassBrowser.pm	2008/11/28 23:22:22	607
@@ -16,12 +16,14 @@
 	documentation => 'Show usage on top of list',
 );
 
+our $usage;
+
 sub as_markup {
 	my $self = shift;
 	my $row;
 	my @icons;
 
-	my $usage = $self->session_dump( $self->usage );
+	$usage ||= $self->session_dump( $self->usage );
 	#warn "# usage ",dump( $usage );
 	foreach my $class ( $self->classes ) {
 
@@ -80,6 +82,8 @@
 		$icons_html->{ $path } || die "can't find $path in ",dump($icons_html);
 	};
 
+	$self->title('Frey');
+
 	return 
 		qq|<table>| . join("\n",
 			map {