--- a/Lib/IMPL/Security/AbstractRole.pm	Fri Feb 14 03:31:45 2014 +0400
+++ b/Lib/IMPL/Security/AbstractRole.pm	Fri Feb 14 16:41:12 2014 +0400
@@ -2,7 +2,7 @@
 use strict;
 
 use IMPL::Const qw(:prop);
-
+use IMPL::lang qw(equals_s); 
 use parent qw(IMPL::Class::Meta);
 
 __PACKAGE__->static_accessor_clone( abstractProps => [
@@ -20,7 +20,7 @@
 sub _FilterRoles {
     my ($this,@roles) = @_;
     
-    @roles = grep not (ref $_ ? $this->roleName eq $_->roleName : $this->roleName eq $_), @roles;
+    @roles = grep not (ref $_ ? equals_s($this->roleName,$_->roleName) : equals_s($this->roleName, $_) ), @roles;
     
     @roles = $_->_FilterRoles(@roles) or return foreach $this->parentRoles ;