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.91 -r1.92
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	13 Sep 2007 08:22:24 -0000	1.91
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	13 Sep 2007 08:31:44 -0000	1.92
@@ -59,7 +59,7 @@
     return [string map [list : _ # _] [self]]
   }
 
-  ::xowiki::Portlet proc self_id {} {
+  ::xowiki::Portlet instproc self_id {} {
     return [string map [list : _ # _] [self]]
   }
   ::xowiki::Portlet proc html_id {name} {
@@ -886,7 +886,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 self_id]}
+    if {![my exists id]} {my set id [::xowiki::Portlet html_id]}
     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>,
@@ -1310,7 +1310,7 @@
   }
 
   toc instproc ajax_tree {js_tree_cmds} {
-    return "<div id='[::xowiki::Portlet self_id]'>
+    return "<div id='[::xowiki::Portlet html_id]'>
       <script type = 'text/javascript'>
       var [my js_name] = {
 
@@ -1440,7 +1440,7 @@
   }
 
   toc instproc tree {js_tree_cmds} {
-    return "<div id='[::xowiki::Portlet self_id]'>
+    return "<div id='[::xowiki::Portlet html_id]'>
       <script type = 'text/javascript'>
       var [my js_name] = {