--- loncom/lonnet/perl/lonnet.pm	2009/08/22 21:11:19	1.1021
+++ loncom/lonnet/perl/lonnet.pm	2009/08/23 03:57:20	1.1022
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1021 2009/08/22 21:11:19 raeburn Exp $
+# $Id: lonnet.pm,v 1.1022 2009/08/23 03:57:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5774,6 +5774,13 @@ sub auto_instcode_format {
 		push(@homeservers,$tryserver);
 	    }
         }
+    } elsif ($caller eq 'requests') {
+        if ($codedom =~ /^$match_domain$/) {
+            my $chome = &domain($codedom,'primary');
+            unless ($chome eq 'no_host') {
+                push(@homeservers,$chome);
+            }
+        }
     } else {
         push(@homeservers,&homeserver($caller,$codedom));
     }