Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.83.2.4 -r1.83.2.5
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	13 Sep 2007 08:30:28 -0000	1.83.2.4
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	13 Sep 2007 08:33:43 -0000	1.83.2.5
@@ -851,7 +851,7 @@
     foreach tag $tags {lappend entries "<a href='$href&tag=[ad_urlencode $tag]'>$tag</a>"}
     set tags_with_links [join [lsort $entries] {, }]
 
-    if {![my exists id]} {my set id [::xowiki::Portlet html_id]}
+    if {![my exists id]} {my set id [::xowiki::Portlet html_id [self]]}
     set content [subst -nobackslashes {
       #xowiki.your_tags_label#: $tags_with_links
       (<a href='#' onclick='document.getElementById("[my id]-edit_tags").style.display="inline";return false;'>#xowiki.edit_link#</a>,
@@ -1249,7 +1249,7 @@
   }
 
   toc instproc ajax_tree {js_tree_cmds} {
-    return "<div id='[::xowiki::Portlet html_id]'>
+    return "<div id='[::xowiki::Portlet html_id [self]]'>
       <script type = 'text/javascript'>
       var [my js_name] = {
 
@@ -1379,7 +1379,7 @@
   }
 
   toc instproc tree {js_tree_cmds} {
-    return "<div id='[::xowiki::Portlet html_id]'>
+    return "<div id='[::xowiki::Portlet html_id [self]]'>
       <script type = 'text/javascript'>
       var [my js_name] = {