Index: openacs-4/packages/xowiki/tcl/link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/link-procs.tcl,v
diff -u -r1.95 -r1.96
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	16 Jun 2015 19:49:21 -0000	1.95
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	31 Jul 2015 07:40:31 -0000	1.96
@@ -529,7 +529,7 @@
     #set link [$package_id pretty_link -absolute true  -siteurl http://localhost:8003 $name]/download.swf
     lassign {320 240 7} width height version
     foreach a {width height version} {if {[my exists $a]} {set $a [my set $a]}}
-    set id [::xowiki::Includelet self_id]
+    set id [::xowiki::Includelet html_id [my item_id]]
     set addParams ""
     foreach a {quality wmode align salign play loop menu scale} {
       if {[my exists $a]} {append addParams "so.addParam('$a', '[my set $a]');\n"}