--- loncom/lonnet/perl/lonnet.pm	2007/03/03 01:54:13	1.842
+++ loncom/lonnet/perl/lonnet.pm	2007/03/03 02:10:59	1.843
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.842 2007/03/03 01:54:13 albertel Exp $
+# $Id: lonnet.pm,v 1.843 2007/03/03 02:10:59 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7623,7 +7623,7 @@ BEGIN {
 	my %result;
 	if (ref($domain) eq 'ARRAY') {
 	    while ( my ($host,$hostname) = each(%possible_hosts)) {
-		if (grep(/\Q$hostdom{$host}\E/,@$domain)) {
+		if (grep(/^\Q$hostdom{$host}\E$/,@$domain)) {
 		    $result{$host} = $hostname;
 		}
 	    }