Index: openacs-4/packages/acs-bootstrap-installer/db-init-checks-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/db-init-checks-oracle.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-bootstrap-installer/db-init-checks-oracle.tcl	13 Nov 2006 21:31:58 -0000	1.7
+++ openacs-4/packages/acs-bootstrap-installer/db-init-checks-oracle.tcl	10 Jan 2007 21:22:02 -0000	1.8
@@ -10,7 +10,7 @@
     upvar $error_p my_error_p
 
     foreach pool [db_available_pools {}] {
-        if { [catch { set db [ns_db gethandle -timeout 15 $pool]}] || ![string compare $db ""] } {
+        if { [catch { set db [ns_db gethandle -timeout 15 $pool]}] || $db eq "" } {
             # This should never happened - we were able to grab a handle previously, why not now?
             append my_errors "(db_bootstrap_checks) Internal error accessing pool \"$pool\".<br>"
             set my_error_p 1