Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -r1.6 -r1.6.4.1
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	10 Sep 2002 22:22:11 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	6 Jul 2004 11:36:29 -0000	1.6.4.1
@@ -197,7 +197,7 @@
     switch $datatype {
         "string" { set type "varchar(1000)" }
         "boolean" { set type "char(1)"
-                    set constraint "[generate_constraint $table $column "ck"] check ($column in ('t','f'))" }
+                    set constraint "[plsql_utility::generate_constraint_name $table $column "ck"] check ($column in ('t','f'))" }
         "number" { set type "number" }
         "money" { set type "number (12,2)" }
         "date" { set type "date" }