--- DNS.pm	Thu Aug 28 22:50:25 2003
+++ /home/oetiker/DNS.pm.txt	Fri Sep 12 15:32:20 2003
@@ -25,6 +25,7 @@
 Carl Elkins E<lt>carl@celkins.org.ukE<gt>
 Andre Stolze E<lt>stolze@uni-muenster.deE<gt>
 Niko Tyni E<lt>ntyni@iki.fiE<gt>
+Chris Poetzel<lt>cpoetzel@anl.gov<gt>
 
 
 =cut
@@ -78,7 +79,11 @@
     my $errh = gensym;
 
     my $host = $target->{addr};
-    my $query = "$self->{properties}{binary} \@$host $host";
+    my $lookuphost = $target->{vars}{lookup};
+    $lookuphost = $target->{addr} unless defined $lookuphost;
+
+    #my $host = $target->{addr};
+    my $query = "$self->{properties}{binary} \@$host $lookuphost";
     my @times;
 
     $self->do_debug("query=$query\n");
