--- loncom/interface/loncommon.pm	2007/01/24 21:42:01	1.504
+++ loncom/interface/loncommon.pm	2007/01/29 20:17:55	1.505
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.504 2007/01/24 21:42:01 albertel Exp $
+# $Id: loncommon.pm,v 1.505 2007/01/29 20:17:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6564,7 +6564,7 @@ sub group_term {
 
 sub icon {
     my ($file)=@_;
-    my $curfext = (split(/\./,$file))[-1];
+    my $curfext = lc((split(/\./,$file))[-1]);
     my $iconname=$Apache::lonnet::perlvar{'lonIconsURL'}.'/unknown.gif';
     my $embstyle = &Apache::loncommon::fileembstyle($curfext);
     if (!(!defined($embstyle) || $embstyle eq 'unk' || $embstyle eq 'hdn')) {