Index: openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl,v
diff -u -N -r1.20 -r1.20.2.1
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	3 Nov 2018 11:15:16 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	2 Jul 2019 12:32:53 -0000	1.20.2.1
@@ -71,7 +71,7 @@
                 set column_name [db_string get_col $get_constraint_col]
 
                 # NOT NULL constraints (oracle only)
-                if { [string equal $search_condition "\"$column_name\" IS NOT NULL"] } {
+                if { $search_condition eq "\"$column_name\" IS NOT NULL" } {
                     set constraint_type "NN"
                 }