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.63 -r1.64
--- openacs-4/packages/search/tcl/search-procs.tcl	25 Nov 2024 14:28:57 -0000	1.63
+++ openacs-4/packages/search/tcl/search-procs.tcl	17 Dec 2024 17:32:51 -0000	1.64
@@ -26,11 +26,6 @@
 
     @return datasource as dict
 } {
-    set driver [search::driver_name]
-    if {$driver eq ""} {
-        return
-    }
-
     set object_type [acs_object_type $object_id]
     if {![search::searchable_type_p -object_type $object_type]} {
         return
@@ -71,6 +66,11 @@
 
     @return datasource as dict
 } {
+    set driver [search::driver_name]
+    if {$driver eq ""} {
+        return
+    }
+
     array set d [search::object_datasource -object_id $object_id]
     if {[array size d] == 0} {
         return
@@ -82,8 +82,6 @@
         $d(storage_type) \
         $object_id
 
-    set driver [search::driver_name]
-
     if {[callback::impl_exists -callback search::index -impl $driver]} {
         callback -impl $driver search::index \
             -object_id $object_id \