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.10 -r1.11
--- openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	11 Dec 2018 16:21:03 -0000	1.10
+++ openacs-4/packages/acs-subsite/tcl/plpgsql-utility-procs.tcl	25 Jan 2019 23:49:04 -0000	1.11
@@ -84,17 +84,19 @@
 	return [join $pieces ","]
     }
 
-    ad_proc -public table_column_type {
+    ad_proc -deprecated table_column_type {
 	table
 	column
     } {
 	Returns the datatype for column in table
 
+        @see db_column_type
+
 	@author Steve Woodcock (swoodcock@scholastic.co.uk)
 	@creation-date 07/2001
 
     } {
-	return [db_string fetch_type {}]
+        return [db_column_type -complain $table $column]
     }
 
     ad_proc -public generate_attribute_parameters { 
@@ -132,7 +134,7 @@
 	foreach triple $attr_list {
 	    set table [string toupper [string trim [lindex $triple 0]]]
 	    set attr [string toupper [string trim [lindex $triple 1]]]
-	    set datatype [table_column_type $table $attr]
+	    set datatype [db_column_type -complain $table $attr]
 	    lappend pieces $datatype
 	}
 	return [join $pieces ","]