--- trunk/lib/Frey/Web.pm	2008/11/18 00:19:22	388
+++ trunk/lib/Frey/Web.pm	2008/11/18 00:30:29	389
@@ -5,7 +5,7 @@
 
 use Continuity::Widget::DomNode;
 use Data::Dump qw/dump/;
-use Carp qw/confess cluck/;
+use Carp qw/confess/;
 use File::Slurp;
 
 has 'head' => (
@@ -155,8 +155,10 @@
 
 sub error {
 	my ( $self, $error ) = @_;
-	cluck $error;
-	$error =~ s{at\s+(\S+)\s+line\s+(\d+)}{ <a href="/editor$1+$2" target="editor">$1</a> line $2}gsm;
+	my ($package, $filename, $line) = caller;
+	$error .= " at $filename line $line";
+	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;
 	return qq|<pre class="frey-error">$error</pre>|;
 }