--- trunk/lib/Frey/Web.pm	2008/11/18 01:45:44	397
+++ trunk/lib/Frey/Web.pm	2008/11/18 12:02:57	407
@@ -126,6 +126,7 @@
 
 	my $status_line = '';
 	foreach my $part ( @{ $self->status } ) {
+		confess "part not hash ",dump( $part ) unless ref($part) eq 'HASH';
 		foreach my $name ( keys %$part ) {
 			my $content = $part->{$name};
 			if ( ref($content) ) {
@@ -167,9 +168,9 @@
 	my $self = shift;
 	my $error = join(" ", @_);
 	my ($package, $filename, $line) = caller;
-	$error .= " at $filename line $line";
+	$error .= " at $filename line $line" if $error !~ m{ at };
 	warn "WARN: $error\n";
-	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
+	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{at <a target="editor" href="/editor+$1+$2">$1</a> line $2}gsm;
 	return qq|<pre class="frey-error">$error</pre>|;
 }