--- loncom/lonnet/perl/lonnet.pm	2014/04/05 12:49:31	1.1172.2.41
+++ loncom/lonnet/perl/lonnet.pm	2014/04/06 00:07:06	1.1172.2.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1172.2.41 2014/04/05 12:49:31 raeburn Exp $
+# $Id: lonnet.pm,v 1.1172.2.42 2014/04/06 00:07:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -956,7 +956,7 @@ sub has_user_session {
 # --------- determine least loaded server in a user's domain which allows login
 
 sub choose_server {
-    my ($udom,$checkloginvia,$required)) = @_;
+    my ($udom,$checkloginvia,$required) = @_;
     my %domconfhash = &Apache::loncommon::get_domainconf($udom);
     my %servers = &get_servers($udom);
     my $lowest_load = 30000;