--- trunk/lib/Frey/Action.pm	2008/11/30 16:22:45	645
+++ trunk/lib/Frey/Action.pm	2008/12/04 17:33:39	715
@@ -128,6 +128,7 @@
 		grep {
 			! $class->meta->get_attribute($_)->is_lazy
 			&& ! defined $default->{$_}
+			&& ! m{^_} # skip _private
 		} $self->attributes
 	) {
 		my $attr_type = '';
@@ -156,7 +157,7 @@
 				$suffix = ' checked' if $value;
 				$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="$value"$suffix>|;
 				push @checkboxes, $name;
-		} elsif ( $attr_type !~ m{^(Str|Int)$} ) {
+		} elsif ( $attr_type !~ m{^(Str|Int)$} || $value =~ $Frey::Web::re_html ) {
 				$value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|;
 		}