--- loncom/lonnet/perl/lonnet.pm	2017/02/25 20:30:57	1.1338
+++ loncom/lonnet/perl/lonnet.pm	2017/02/28 05:42:12	1.1339
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1338 2017/02/25 20:30:57 raeburn Exp $
+# $Id: lonnet.pm,v 1.1339 2017/02/28 05:42:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -13263,6 +13263,7 @@ sub fetch_dns_checksums {
 	&purge_remembered();
 	&reset_domain_info();
 	&reset_hosts_ip_info();
+        undef(%internetdom);
 	undef(%name_to_host);
 	undef(%hostname);
 	undef(%hostdom);
@@ -13305,6 +13306,11 @@ sub fetch_dns_checksums {
         return %hostdom;
     }
 
+    sub all_host_intdom {
+        &load_hosts_tab() if (!$loaded);
+        return %internetdom;
+    }
+
     sub is_library {
 	&load_hosts_tab() if (!$loaded);