--- loncom/lonnet/perl/lonnet.pm	2000/05/01 20:19:38	1.12
+++ loncom/lonnet/perl/lonnet.pm	2000/05/29 14:06:46	1.13
@@ -17,7 +17,7 @@
 # 11/8,11/16,11/18,11/22,11/23,12/22,
 # 01/06,01/13,02/24,02/28,02/29,
 # 03/01,03/02,03/06,03/07,03/13,
-# 04/05 Gerd Kortemeyer
+# 04/05,05/29 Gerd Kortemeyer
 
 package Apache::lonnet;
 
@@ -329,7 +329,6 @@ sub repcopy {
 
 sub store {
     my %storehash=shift;
-    my $command=;
     my $namevalue='';
     map {
         $namevalue.=escape($_).'='.escape($storehash{$_}).'&';
@@ -351,7 +350,7 @@ sub restore {
 	my ($name,$value)=split(/\=/,$_);
         $returnhash{&unescape($name)}=&unescape($value);
     } split(/\&/,$answer);
-    return $returnhash;
+    return %returnhash;
 }
 
 # -------------------------------------------------------- Get user priviledges