Index: openacs-4/packages/forums/www/admin/subscribe-others.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/admin/subscribe-others.tcl,v
diff -u -r1.3 -r1.3.8.1
--- openacs-4/packages/forums/www/admin/subscribe-others.tcl	12 Sep 2006 18:12:36 -0000	1.3
+++ openacs-4/packages/forums/www/admin/subscribe-others.tcl	7 Oct 2013 16:44:54 -0000	1.3.8.1
@@ -43,7 +43,7 @@
 
 set member_html ""
 foreach member_id $member_ids {
-    if {[lsearch $subscribed_members_list $member_id] > -1} {
+    if {$member_id in $subscribed_members_list} {
 	set checked_html "checked"
     } else {
 	set checked_html ""
Index: openacs-4/packages/xowiki/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/template-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/xowiki/tcl/template-procs.tcl	13 Sep 2012 16:05:28 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/template-procs.tcl	7 Oct 2013 16:44:54 -0000	1.4.2.1
@@ -40,13 +40,12 @@
 } {
   # set the stack frame at which the template is being parsed so that
   # other procedures can reference variables cleanly
-  variable parse_level
-  lappend parse_level [expr {[info level] - $uplevel}]
+  lappend ::template::parse_level [expr {[info level] - $uplevel}]
 
   set __adp_out [template::adp_parse [template::util::url_to_file $src] $varlist]
 
   # pop off parse level
-  template::util::lpop parse_level
+  template::util::lpop ::template::parse_level
 
   return $__adp_out
 }
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.320.2.4 -r1.320.2.5
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	5 Oct 2013 11:26:22 -0000	1.320.2.4
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	7 Oct 2013 16:44:54 -0000	1.320.2.5
@@ -588,8 +588,8 @@
     # We have to do template mangling here; ad_form_template writes
     # form variables into the actual parselevel, so we have to be in
     # our own level in order to access an pass these.
-    variable ::template::parse_level
-    lappend parse_level [info level]    
+    lappend ::template::parse_level [info level]    
+
     set action_vars [expr {$new ? "{edit-new 1} object_type return_url" : "{m edit} return_url"}]
     #my log "--formclass=[$object_type getFormClass -data [self]] ot=$object_type"
 
@@ -647,7 +647,7 @@
                   -form f1 \
                   -variables {item_id parent_id edit_form_page_title context formTemplate
                     view_link back_link rev_link index_link property_doc}]
-    template::util::lpop parse_level
+    template::util::lpop ::template::parse_level
     #my log "--edit html length [string length $html]"
     return $html
   }