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.67 -r1.68
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	6 Jul 2007 13:35:12 -0000	1.67
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	10 Jul 2007 19:00:06 -0000	1.68
@@ -59,6 +59,10 @@
     return [string map [list : _ # _] [self]]
   }
 
+  ::xowiki::Portlet proc make_id {} {
+    return [string map [list : _ # _] [self]]
+  }
+
   ::xowiki::Portlet instproc screen_name {user_id} {
     acs_user::get -user_id $user_id -array user
     return [expr {$user(screen_name) ne "" ? $user(screen_name) : $user(name)}]