--- loncom/interface/loncommon.pm	2009/09/27 15:27:26	1.892
+++ loncom/interface/loncommon.pm	2009/10/01 17:25:17	1.893
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.892 2009/09/27 15:27:26 amueller Exp $
+# $Id: loncommon.pm,v 1.893 2009/10/01 17:25:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4046,7 +4046,7 @@ sub determinedomain {
     my $domain=shift;
     if (! $domain) {
         # Determine domain if we have not been given one
-        $domain = $Apache::lonnet::perlvar{'lonDefDomain'};
+        $domain = &Apache::lonnet::default_login_domain();
         if ($env{'user.domain'}) { $domain=$env{'user.domain'}; }
         if ($env{'request.role.domain'}) { 
             $domain=$env{'request.role.domain'};