Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.38 -r1.148.2.39
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Sep 2021 15:27:43 -0000	1.148.2.38
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Sep 2021 15:32:33 -0000	1.148.2.39
@@ -71,7 +71,11 @@
 
   ::xotcl::Class create ::xo::db::postgresql -superclass ::xo::db::SQL
 
-  ::xo::db::postgresql instproc map_datatype {type} {
+  ::xo::db::postgresql ad_instproc map_datatype {type} {
+    Maps supplied abstract type to the real Postgres datatype
+
+    @return the name of a supported Postgres datatype
+  } {
     switch -- $type {
       string    { set type text }
       long_text { set type text }