--- loncom/interface/lonmsg.pm	2001/07/26 21:40:27	1.9
+++ loncom/interface/lonmsg.pm	2001/07/27 20:17:14	1.10
@@ -151,7 +151,7 @@ sub user_crit_received {
                      $contents{'subject'}.'" dated '.$contents{'time'}.".\n\n"
                      .'Message ID: '.$contents{'msgid'});
     $status.=' trans: '.
-     &Apache::lonnet::put('nohist_email',$contents{'msgid'} => $message);
+     &Apache::lonnet::put('nohist_email',{$contents{'msgid'} => $message});
     $status.=' del: '.
      &Apache::lonnet::del('critical',[$contents{'msgid'}]);
     &Apache::lonnet::log($ENV{'user.domain'},$ENV{'user.name'},
@@ -194,7 +194,7 @@ sub statuschange {
     unless ($status{$msgid}) { $status{$msgid}='new'; }
     unless (($status{$msgid} eq 'replied') || 
             ($status{$msgid} eq 'forwarded')) {
-	&Apache::lonnet::put('email_status',($msgid => $newstatus));
+	&Apache::lonnet::put('email_status',{$msgid => $newstatus});
     }
 }
 # ===================================================================== Handler