--- loncom/lond	2003/01/15 04:43:14	1.106
+++ loncom/lond	2003/01/15 19:34:02	1.107
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.106 2003/01/15 04:43:14 foxr Exp $
+# $Id: lond,v 1.107 2003/01/15 19:34:02 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1222,7 +1222,7 @@ sub make_new_child {
                            print $client "error:$!\n";
                        }
 # ----------------------------------------------------------------- dumpcurrent
-                   } elsif ($userinput =~ /^dumpcurrent/) {
+                   } elsif ($userinput =~ /^currentdump/) {
                        my ($cmd,$udom,$uname,$namespace)
                           =split(/:/,$userinput);
                        $namespace=~s/\//\_/g;
@@ -1244,9 +1244,8 @@ sub make_new_child {
                               next if (exists($data{$symb}) && 
                                        exists($data{$symb}->{$param}) &&
                                        $data{$symb}->{'v.'.$param} > $v);
-                              #&logthis("v = ".$v." p = ".$param." s = ".$symb);
                               $data{$symb}->{$param}=$value;
-                              $data{$symb}->{'v.'.$param}=$value;
+                              $data{$symb}->{'v.'.$param}=$v;
                            }
                            if (untie(%hash)) {
                              while (my ($symb,$param_hash) = each(%data)) {