Index: openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	16 Jan 2003 13:38:14 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	10 Jan 2007 21:22:06 -0000	1.4
@@ -63,7 +63,7 @@
 	    if { [info exists user_supplied($arg_name)] } {
 		lappend pieces "${prepend}$user_supplied($arg_name)"
 	    } else {
-		if { $arg_default == "" } {
+		if { $arg_default eq "" } {
 		    lappend pieces "NULL"
 		} else {
 		    lappend pieces "'[db_quote $arg_default]'"
@@ -150,11 +150,11 @@
 	foreach triple $attr_list {
 	    set attr  [string trim [lindex $triple 1]]
 	    set dft   [string trim [lindex $triple 2]]
-	    if { [empty_string_p $dft] || $dft == "NULL" } {
+	    if { $dft eq "" || $dft eq "NULL" } {
 		set default ""
 	    } else {
-		if { [string index $dft 0] == "'" } {
-		    set dft [string range $dft 1 [expr [string length $dft] - 2]]
+		if { [string index $dft 0] eq "'" } {
+		    set dft [string range $dft 1 [expr {[string length $dft] - 2}]]
 		}
 		set default ";${dft}"
 	    }