--- loncom/lonnet/perl/lonnet.pm	2007/12/21 04:22:53	1.933
+++ loncom/lonnet/perl/lonnet.pm	2007/12/21 04:32:49	1.934
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.933 2007/12/21 04:22:53 raeburn Exp $
+# $Id: lonnet.pm,v 1.934 2007/12/21 04:32:49 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4848,8 +4848,15 @@ sub auto_run {
             $response = 1;
         }
     } else {
-        my $homeserver = &homeserver($cnum,$cdom);
-        $response = &reply('autorun:'.$cdom,$homeserver);
+        my $homeserver;
+        if (&is_course($cdom,$cnum)) {
+            $homeserver = &homeserver($cnum,$cdom);
+        } else {
+            $homeserver = &domain($cdom,'primary');
+        }
+        if ($homeserver ne 'no_host') {
+            $response = &reply('autorun:'.$cdom,$homeserver);
+        }
     }
     return $response;
 }
@@ -8868,7 +8875,7 @@ In the hash, keys are set to colon-separ
 (optionally) if $withsec is true, a fourth colon-separated item - $section.
 For each key, value is set to colon-separated start and end times for
 the role.  If no username and domain are specified, will default to
-currnt user/domain. Types, roles, and roledoms are references to arrays
+current user/domain. Types, roles, and roledoms are references to arrays
 of role statuses (active, future or previous), roles 
 (e.g., cc,in, st etc.) and domains of the roles which can be used
 to restrict the list of roles reported. If no array ref is