--- a/Lib/IMPL/Exception.pm	Tue Oct 09 03:09:41 2012 +0400
+++ b/Lib/IMPL/Exception.pm	Tue Oct 09 20:12:47 2012 +0400
@@ -11,6 +11,7 @@
 }
 
 use parent qw(IMPL::Object::Abstract Error Class::Accessor);
+require IMPL::Class::Property::Accessor;
 
 BEGIN {
     __PACKAGE__->mk_accessors( qw(Message Args CallStack Source) );
@@ -84,6 +85,10 @@
     ($this->Message || ref $this) . join("\n",'',map { my $s = $_; local $_; indent("$s",1) } @{$this->Args} ) . ( $notrace ? '' : "\n" . $this->CallStack);
 }
 
+sub _PropertyImplementor {
+	'IMPL::Class::Property::Accessor'
+}
+
 package IMPL::InvalidOperationException;
 our @ISA = qw(IMPL::Exception);
 __PACKAGE__->PassThroughArgs;