Index: openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl	7 Aug 2017 23:48:30 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl	31 Aug 2017 17:29:34 -0000	1.5
@@ -127,14 +127,14 @@
       }        
   
   BootstrapNavbarDropdownMenuItem ad_instproc render {} {doku} {
-    html::li -class [expr {[my set href] eq "" ? "disabled": ""}] {
-      html::a [my get_attributes target href title id] {
-        html::t [my text]
+    html::li -class [expr {${:href} eq "" ? "disabled": ""}] {
+      html::a [:get_attributes target href title id] {
+        html::t ${:text}
       }
     }
-    if {[my exists listener] && [my set listener] ne ""} {
-      lassign [my listener] type body
-      template::add_event_listener -event $type -id [my set id] \
+    if {[info exists :listener] && ${:listener} ne ""} {
+      lassign ${:listener} type body
+      template::add_event_listener -event $type -id ${:id} \
           -preventdefault=false -script $body
     }
   }