Index: openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl	7 Sep 2013 12:50:57 -0000	1.6
+++ openacs-4/packages/edit-this-page/tcl/etp-sc-procs.tcl	13 Feb 2016 16:38:05 -0000	1.7
@@ -29,7 +29,7 @@
     # which the proc can modify if it likes to add additional
     # content to be indexed.
 
-    if {[llength [info procs "etp::search::$content_type"]]==1} {
+    if {[info commands "etp::search::$content_type"] ne ""} {
 	[etp::search::$content_type -array_name "datasource"]
     }
 
@@ -65,13 +65,13 @@
 
     db_transaction {
 	# create the implementation if it does not exist
-	if {![etp::search_impl_exists_p -content_type $content_type]==1} {
+	if {[db_0or1row get_contract_id {}] == 0} { 
 	    db_exec_plsql create_search_impl {}
 	    db_exec_plsql create_datasource_alias {}
 	    db_exec_plsql create_url_alias {}
 	}
 	# install the binding if it does not exist
-	if {![acs_sc_binding_exists_p "FtsContentProvider" $content_type]==1} {
+	if {[acs_sc_binding_exists_p "FtsContentProvider" $content_type] != 1} {
 	    db_exec_plsql install_binding {}
 	}
     } on_error {
@@ -106,4 +106,4 @@
 	upvar search_array $array_name
 	ns_log debug "etp::search::etp_page_revision: arrayname:$array_name"
     }
-}
\ No newline at end of file
+}