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.25 -r1.26
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	10 May 2007 10:07:26 -0000	1.25
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	10 Jul 2007 19:00:06 -0000	1.26
@@ -212,15 +212,16 @@
     #set link [$package_id pretty_link -absolute true  -siteurl http://localhost:8003 $name]/download.swf
     foreach {width height bgcolor version} {320 240 #999999 7} break
     foreach a {width height bgcolor version} {if {[my exists $a]} {set $a [my set $a]}}
+    set id [::xowiki::Portlet make_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"}
     }
     
-    return "<div id='[self]'>$label</div>
+    return "<div id='$id'>$label</div>
     <script type='text/javascript'>
     var so = new SWFObject('$href', '$name', '$width', '$height', '$version', '$bgcolor');
-    $addParams so.write('[self]');
+    $addParams so.write('$id');
     </script>
     "
   }