--- loncom/lonnet/perl/lonnet.pm	2014/10/13 15:46:45	1.1266
+++ loncom/lonnet/perl/lonnet.pm	2014/10/18 16:49:19	1.1267
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1266 2014/10/13 15:46:45 raeburn Exp $
+# $Id: lonnet.pm,v 1.1267 2014/10/18 16:49:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1652,6 +1652,7 @@ sub dump_dom {
 
 sub get_dom {
     my ($namespace,$storearr,$udom,$uhome)=@_;
+    return if ($udom eq 'public');
     my $items='';
     foreach my $item (@$storearr) {
         $items.=&escape($item).'&';
@@ -1659,6 +1660,7 @@ sub get_dom {
     $items=~s/\&$//;
     if (!$udom) {
         $udom=$env{'user.domain'};
+        return if ($udom eq 'public');
         if (defined(&domain($udom,'primary'))) {
             $uhome=&domain($udom,'primary');
         } else {