--- trunk/lib/Frey/ClassBrowser.pm	2008/11/18 12:55:32	408
+++ trunk/lib/Frey/ClassBrowser.pm	2008/11/18 13:52:26	409
@@ -23,10 +23,10 @@
 		my @run;
 		my @input;
 		push @run, qq|<a href="/Frey-ObjectBrowser?class=$class">collection</a>| if $class->can('collection_table');
-		my @methods = $self->class_methods( $class );
+		my $class_method = $self->class_methods( $class );
 		foreach my $try ( Frey::Run->runnable ) {
 			next unless $class->can($try);
-			if ( grep { /^\Q$try\E$/ } @methods ) {
+			if ( $class_method->{ $try } ) {
 				push @run, qq|<a href="/$class/$try">$try</a>|;
 			} else {
 				push @input, $try;