--- trunk/lib/Frey/Server.pm	2008/07/13 18:01:19	115
+++ trunk/lib/Frey/Server.pm	2008/07/13 18:14:07	118
@@ -74,8 +74,13 @@
 					my $package = $_;
 					( tr => [
 						td => [ a => { href => '/~/' . $package, title => $f->package_path( $package ) } => [ $package ] ],
-						td => [ $package->can('meta') ? ( a => { href => '/od/' . $package } => [ 'design' ] ) : '' ],
-						td => [ $package->can('collection') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ],
+						td => [
+							$package->can('meta') ?
+								$package->meta->isa('Moose::Meta::Role') ? 'role' :
+								( a => { href => '/od/' . $package } => [ 'design' ] ) :
+							''
+						],
+						td => [ $package->can('collection_table') ? ( a => { href => '/ob/' . $package } => [ 'collection' ] ) : '' ],
 					] )
 				} $f->classes
 			],