--- loncom/lonnet/perl/lonnet.pm	2011/12/14 16:16:50	1.1148
+++ loncom/lonnet/perl/lonnet.pm	2011/12/14 21:03:53	1.1149
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1148 2011/12/14 16:16:50 raeburn Exp $
+# $Id: lonnet.pm,v 1.1149 2011/12/14 21:03:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3538,6 +3538,7 @@ sub get_my_roles {
     foreach my $entry (keys(%dumphash)) {
         my ($role,$tend,$tstart);
         if ($context eq 'userroles') {
+            next if ($entry =~ /^rolesdef/);
 	    ($role,$tend,$tstart)=split(/_/,$dumphash{$entry});
         } else {
             ($tend,$tstart)=split(/\:/,$dumphash{$entry});