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 -N -r1.36 -r1.37
--- openacs-4/packages/xowiki/tcl/link-procs.tcl	28 Sep 2007 20:34:06 -0000	1.36
+++ openacs-4/packages/xowiki/tcl/link-procs.tcl	13 Nov 2007 11:36:11 -0000	1.37
@@ -257,7 +257,7 @@
     #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 self_id]
+    set id [::xowiki::Includelet self_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"}