Index: openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl,v
diff -u -N -r1.30 -r1.31
--- openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	22 Dec 2001 18:58:06 -0000	1.30
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs-postgresql.tcl	22 Dec 2001 21:52:24 -0000	1.31
@@ -162,7 +162,7 @@
                     if {[string equal $__db_tcl_var ""]} {
                         set __db_tcl_var null
                     } else {
-                        set __db_tcl_var "'$__db_tcl_var'"
+                        set __db_tcl_var "'[DoubleApos $__db_tcl_var]'"
                     }
                     set __db_sql [string replace $__db_sql $__db_ws $__db_we $__db_tcl_var]
                 }                
@@ -184,7 +184,7 @@
                 if {[string equal $val ""]} {
                     set val null
                 } else {
-                    set val "'$val'"
+                    set val "'[DoubleApos $val]'"
                 }
                 set lsql [string replace $lsql $ws $we $val]
             }