Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v
diff -u -r1.35.8.8 -r1.35.8.9
--- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	30 Sep 2013 12:00:40 -0000	1.35.8.8
+++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl	2 Oct 2013 22:55:54 -0000	1.35.8.9
@@ -375,7 +375,7 @@
     # I would like to add test_procs to the list but currently test_procs files are used to register test cases
     # and we don't want to resource these files in every interpreter. Test procs should be defined in test_init files.
     set watchable_file_types [list tcl_procs query_file test_procs]
-    set right_file_type_p [expr {[lsearch -exact $watchable_file_types $file_type] != -1}]
+    set right_file_type_p [expr {$file_type in $watchable_file_types}]
 
     # Both db type and file type must be right
     set watchable_p [expr {$right_db_type_p && $right_file_type_p}]