--- loncom/lonnet/perl/lonnet.pm	2014/05/05 11:53:37	1.1172.2.47
+++ loncom/lonnet/perl/lonnet.pm	2014/05/10 14:24:19	1.1172.2.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.47 2014/05/05 11:53:37 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.48 2014/05/10 14:24:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11918,7 +11918,7 @@ sub parse_dns_checksums_tab {
 sub fetch_dns_checksums {
     my %checksums;
     my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});
-    my $loncaparev = &get_server_loncaparev($machine_dom);
+    my $loncaparev = &get_server_loncaparev($machine_dom,$perlvar{'lonHostID'});
     my ($release,$timestamp) = split(/\-/,$loncaparev);
     &get_dns("/adm/dns/checksums/$release",\&parse_dns_checksums_tab,1,1,
              \%checksums);