--- loncom/interface/lonannounce.pm	2007/03/02 23:17:58	1.66
+++ loncom/interface/lonannounce.pm	2007/03/03 02:16:17	1.67
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Announce
 #
-# $Id: lonannounce.pm,v 1.66 2007/03/02 23:17:58 albertel Exp $
+# $Id: lonannounce.pm,v 1.67 2007/03/03 02:16:17 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -499,7 +499,8 @@ SERVERANNOUNCE
 # list servers
     my %hostname = &Apache::lonnet::all_hostnames();
     foreach my $host (sort(keys(%hostname))) {
-	if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$host})) {
+	if (&Apache::lonnet::allowed('psa',
+				     &Apache::lonnet::host_domain($host))) {
 	    $r->print ('<br /><label><input type="checkbox" name="postto_'.$host.'" /> '.
 		       $host.' <tt>'.$hostname{$host}.'</tt> '.
 		       '</label><a href="http://'.$hostname{$host}.