--- loncom/interface/loncommon.pm	2013/08/19 00:31:54	1.1147
+++ loncom/interface/loncommon.pm	2013/08/20 01:51:50	1.1148
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1147 2013/08/19 00:31:54 raeburn Exp $
+# $Id: loncommon.pm,v 1.1148 2013/08/20 01:51:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10691,6 +10691,7 @@ sub modify_html_refs {
                         my $numchg = ($content =~ s{($attrib_regexp\s*=\s*['"]?)\Q$ref\E(['"]?)}{$1$newname$2}gi);
                         $count += $numchg;
                         $allfiles{$newname} = $allfiles{$ref};
+                        delete($allfiles{$ref});
                     }
                     if ($env{'form.embedded_codebase_'.$i} ne '') {
                         $codebase = &unescape($env{'form.embedded_codebase_'.$i});