Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/search/tcl/search-procs.tcl	13 Mar 2009 18:57:19 -0000	1.46
+++ openacs-4/packages/search/tcl/search-procs.tcl	30 Mar 2010 21:42:03 -0000	1.47
@@ -181,7 +181,7 @@
                 if {[catch {
                     acs_sc_call FtsEngineDriver unindex [list $object_id] $driver
                 } errMsg]} {
-                    ns_log Error "search::indexer: error unindexing $object_id $object_type: $errMsg\n[ad_print_stack_trace]\n"
+                    ns_log Error "search::indexer: error unindexing $object_id [acs_object_type $object_id]: $errMsg\n[ad_print_stack_trace]\n"
                 } else {
                     # call the search action callbacks.
                     callback -catch search::action \