--- trunk/lib/Frey/ClassCreator.pm	2008/12/02 02:31:58	679
+++ trunk/lib/Frey/ClassCreator.pm	2008/12/02 10:39:06	680
@@ -31,7 +31,7 @@
 	return $path;
 }
 
-sub create_class_source_as_data {
+sub create_class_source_as_markup {
 	my ($self) = @_;
 
 	my $class = $self->class;
@@ -61,10 +61,17 @@
 	$code = read_file( 't/30-frey-skeleton.t' );
 	$code =~ s{$skeleton}{$class}g;
 	write_file( $test_path, $code );
+	chmod 0755, $test_path;
 	warn "# created class $class at ", path_size($test_path);
 	system "svk add $test_path" if $self->svk_add;
 
-	return $code;
+	my $html
+		= qq|Created "$class" and $test_path|
+		;
+
+	$html = $self->editor_links( $html );
+
+	return $html;
 }
 
 =head1 DESCRIPTION