--- loncom/lonnet/perl/lonnet.pm	2003/03/22 21:23:35	1.345
+++ loncom/lonnet/perl/lonnet.pm	2003/03/23 01:46:51	1.346
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.345 2003/03/22 21:23:35 www Exp $
+# $Id: lonnet.pm,v 1.346 2003/03/23 01:46:51 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -607,7 +607,7 @@ sub assign_access_key {
     } elsif (!$existing{$ckey}) {
         if (&put('accesskey',{$ckey=>$udom.':'.$uname},$cdom,$cnum) eq 'ok') {
 # key now belongs to user
-	    my $envkey='key.'.$cdom.'.'.$cnum;
+	    my $envkey='key.'.$cdom.'_'.$cnum;
             if (&put('environment',{$envkey => $ckey}) eq 'ok') {
                 &appenv('environment.'.$envkey => $ckey);
                 return 'ok';