--- pgaccess.tcl.orig   Thu Apr 29 12:54:35 1999
+++ pgaccess.tcl        Thu Apr 29 13:08:31 1999
@@ -1422,7 +1422,19 @@
        set mw($wn,msg) "Updating record ..."
        after 1000 "set mw($wn,msg) {}"
        regsub -all ' $fldval  \\' sqlfldval
-       set retval [sql_exec noquiet "update \"$mw($wn,tablename)\" set
\"$fld\"