--- loncom/interface/loncommon.pm	2006/09/21 21:23:15	1.458
+++ loncom/interface/loncommon.pm	2006/09/22 19:59:30	1.459
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.458 2006/09/21 21:23:15 albertel Exp $
+# $Id: loncommon.pm,v 1.459 2006/09/22 19:59:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2353,7 +2353,8 @@ sub preferred_languages {
 	         $env{'course.'.$env{'request.course.id'}.'.languages'}));
     }
     if ($env{'environment.languages'}) {
-	@languages=split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'});
+	@languages=(@languages,
+		    split(/\s*(\,|\;|\:)\s*/,$env{'environment.languages'}));
     }
     my $browser=(split(/\;/,$ENV{'HTTP_ACCEPT_LANGUAGE'}))[0];
     if ($browser) {