--- a/Lib/IMPL/Object/PublicSerializable.pm	Fri Feb 01 16:37:59 2013 +0400
+++ b/Lib/IMPL/Object/PublicSerializable.pm	Mon Feb 04 02:10:37 2013 +0400
@@ -1,7 +1,7 @@
 package IMPL::Object::PublicSerializable;
 use strict;
 
-use IMPL::Class::Member;
+use IMPL::Const qw(:access);
 
 sub restore {
     my ($class,$data,$refSurrogate) = @_;
@@ -22,13 +22,13 @@
     my $val;
     
     defined($val = $this->$_()) and $ctx->AddVar($_,$val) foreach
-        map $_->Name,$this->get_meta(
+        map $_->name,$this->GetMeta(
             'IMPL::Class::PropertyInfo',
             sub {
-                $_->Access == IMPL::Class::Member::MOD_PUBLIC and
-                $_->canGet and
+                $_->access == ACCESS_PUBLIC and
+                $_->getter and
                 not $_->ownerSet and
-                not $seen{$_->Name} ++
+                not $seen{$_->name} ++
             },
             1
         );