Index: openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	24 Oct 2006 13:25:07 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	10 Jan 2007 21:22:12 -0000	1.5
@@ -28,7 +28,7 @@
 	set the_id [db_nextval acs_object_id_seq]
 	aa_run_with_teardown -test_code {  
 
-	    if { [string eq [db_name] "PostgreSQL"] } {
+	    if {[db_name] eq "PostgreSQL"} {
 		set type_create_sql "select acs_object_type__create_type (
 					      :object_type,
 					      :pretty_name,