--- trunk/lib/Frey/Test/Runner.pm	2008/11/24 21:35:34	500
+++ trunk/lib/Frey/Test/Runner.pm	2008/11/24 21:50:05	503
@@ -40,7 +40,7 @@
 	my $tests;
 
 	map {
-		$tests->{$_}++ if m{\.t$};
+		$tests->{$_}->{'test modified'}++ if m{\.t$};
 	} @{ $self->tests };
 
 	map {
@@ -95,8 +95,12 @@
 				.
 				join(' ',
 					map {
-#						qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>|
-						qq|<a target="introspect" href="/$_" title="introspect">$_</a>|
+						if ( m{\s} ) {
+							$_	# human comment with space
+						} else {
+							qq|<a target="introspect" href="/$_" title="introspect">$_</a>|
+#							qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>|
+						}
 					} keys %{ $tests->{$_} }
 				)
 			} @tests )