--- loncom/lonnet/perl/lonnet.pm	2014/05/05 03:24:40	1.1259
+++ loncom/lonnet/perl/lonnet.pm	2014/05/10 14:00:04	1.1260
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1259 2014/05/05 03:24:40 raeburn Exp $
+# $Id: lonnet.pm,v 1.1260 2014/05/10 14:00:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11853,7 +11853,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);