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.4
--- 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	27 Oct 2014 16:41:39 -0000	1.4
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 
 } {
-    forum_id:integer,notnull
+    forum_id:naturalnum,notnull
     {return_url "."}
 }
 
@@ -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 ""