Index: Users.pm
===================================================================
--- Users.pm    (revision 16558)
+++ Users.pm    (working copy)
@@ -108,6 +108,12 @@
     # override (in TWiki.pm)
     $this->{remoteUser} =
       $this->{loginManager}->loadSession( $session->{remoteUser} );
+       if ( defined( $this->{remoteUser} ) ) {
+               my $kerb_user;
+               $kerb_user = $this->{remoteUser};
+               $kerb_user =~ s/^([^@]+)@.*/$1/;
+               $this->{remoteUser} = $kerb_user;
+       }
     $this->{remoteUser} = $TWiki::cfg{DefaultUserLogin}
       unless ( defined( $this->{remoteUser} ) );