--- loncom/lonnet/perl/lonnet.pm	2010/07/25 02:58:05	1.1077
+++ loncom/lonnet/perl/lonnet.pm	2010/07/26 21:52:19	1.1078
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1077 2010/07/25 02:58:05 raeburn Exp $
+# $Id: lonnet.pm,v 1.1078 2010/07/26 21:52:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3943,9 +3943,10 @@ sub rolesinit {
     my ($domain,$username,$authhost)=@_;
     my $now=time;
     my %userroles = ('user.login.time' => $now);
-    my $rolesdump=reply("dump:$domain:$username:roles",$authhost);
+    my $extra = &freeze_escape({'clientcheckrole' => 1});
+    my $rolesdump=reply("dump:$domain:$username:roles:.::$extra",$authhost);
     if (($rolesdump eq 'con_lost') || ($rolesdump eq '') || 
-        ($rolesdump =~ /^error:/)) { 
+        ($rolesdump =~ /^error:/)) {
         return \%userroles;
     }
     my %allroles=();