Index: openacs-4/packages/search/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/www/search.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/search/www/search.tcl	25 Sep 2007 15:22:41 -0000	1.28
+++ openacs-4/packages/search/www/search.tcl	21 Oct 2007 12:28:43 -0000	1.29
@@ -42,7 +42,7 @@
     array set info [acs_sc_call FtsEngineDriver info [list] $driver]
 }
 
-if { [array get info] == "" } {
+if { [array get info] eq "" } {
     ReturnHeaders
     ns_write "[_ search.lt_FtsEngineDriver_not_a]"
     ad_script_abort
@@ -201,7 +201,7 @@
     append url_previous "&num=$num"
     append url_next "&num=$num"
 }
-set ol_start [expr $offset + 1]
+set ol_start [expr {$offset + 1}]
 
 template::multirow create results_paginator item link
 for { set __i $from_result_page } { $__i <= $to_result_page} { incr __i } {