--- loncom/interface/loncreateuser.pm	2007/03/03 01:33:21	1.146
+++ loncom/interface/loncreateuser.pm	2007/03/03 01:40:28	1.147
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.146 2007/03/03 01:33:21 albertel Exp $
+# $Id: loncreateuser.pm,v 1.147 2007/03/03 01:40:28 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1064,8 +1064,8 @@ ENDNEWUSERHEAD
         if (lc($desiredhost) eq 'default') {
             $desiredhost = undef;
         } else {
-            my %home_servers = &Apache::loncommon::get_library_servers
-                ($env{'form.ccdomain'});  
+            my %home_servers = 
+		&Apache::lonnet::get_servers($env{'form.ccdomain'},'library');
             if (! exists($home_servers{$desiredhost})) {
                 $r->print($error.&mt('Invalid home server specified'));
                 return;