diff --git a/lib/WebGUI/Exception.pm b/lib/WebGUI/Exception.pm
index 3d4ac9872..54bef4c91 100644
--- a/lib/WebGUI/Exception.pm
+++ b/lib/WebGUI/Exception.pm
@@ -60,6 +60,15 @@ use Exception::Class (
         },
 );
 
+sub WebGUI::Error::full_message {
+    my $self = shift;
+    my $message = $self->message ? $self->message : $self->description;
+    my @fields = map { defined $self->$_ ? ($_ . ': ' . $self->$_) : () } $self->Fields;
+    if (@fields) {
+        $message .= ' (' . join( q{, }, @fields ) . ')';
+    }
+    return $message;
+}
 
 =head1 NAME