--- loncom/lonnet/perl/lonnet.pm	2003/01/31 22:12:13	1.321
+++ loncom/lonnet/perl/lonnet.pm	2003/01/31 22:39:10	1.322
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.321 2003/01/31 22:12:13 albertel Exp $
+# $Id: lonnet.pm,v 1.322 2003/01/31 22:39:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3085,9 +3085,12 @@ sub metadata {
                       my $unikey='parameter'.$keyroot.'_'.$name;
                       $metathesekeys{$unikey}=1;
                       $metacache{$uri.':'.$unikey.'.part'}=$part;
-                      unless 
-                       (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
-                         $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
+                      unless (defined($metacache{$uri.':'.$unikey.'.'.$subp})) {
+			  $metacache{$uri.':'.$unikey.'.'.$subp}=$value;
+		      }
+		      if (defined($metacache{$uri.':'.$unikey.'.default'})) {
+			  $metacache{$uri.':'.$unikey}=
+			     $metacache{$uri.':'.$unikey.'.default'}
 		      }
                   }
               }