--- a/Lib/IMPL/Security/Context.pm	Fri Mar 19 20:06:12 2010 +0300
+++ b/Lib/IMPL/Security/Context.pm	Tue Mar 23 16:55:25 2010 +0300
@@ -12,9 +12,9 @@
 my $nobody;
 
 BEGIN {
-    public property Principal => prop_get;
-    public property AssignedRoles => prop_all | prop_list;
-    public property AuthSession => prop_all;
+    public property principal => prop_get;
+    public property rolesAssigned => prop_all | prop_list;
+    public property auth => prop_all;
 }
 
 sub Impersonate {
@@ -36,7 +36,7 @@
 
 sub contextNobody {
     my ($self) = @_;
-    $nobody = $self->new(Principal => IMPL::Security::Principal->nobody, AssignedRoles => undef) unless $nobody;
+    $nobody = $self->new(principal => IMPL::Security::Principal->nobody, rolesAssigned => undef) unless $nobody;
     $nobody;
 }