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.40 -r1.148.2.41
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Sep 2021 17:35:50 -0000	1.148.2.40
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Sep 2021 17:51:09 -0000	1.148.2.41
@@ -77,7 +77,6 @@
   ::xotcl::Class create ::xo::db::postgresql -superclass ::xo::db::SQL
 
   ::xo::db::postgresql instproc map_datatype {type} {
-  } {
     switch -- $type {
       string    { set type text }
       long_text { set type text }