--- 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\"='$sqlfldval' where oid=$oid"]
+
+#FIXME rjr 4/29/1999 special case null so it can be entered into tables
+#really need to write a tcl sqlquote proc which quotes the string only
+#if necessary, so it can be used all over pgaccess, instead of explicit 's
+
+	if {$sqlfldval == "null"} {
+            set retval [sql_exec noquiet "update \"$mw($wn,tablename)\" \
+	    	set \"$fld\"= null where oid=$oid"]
+         } else {
+          set retval [sql_exec noquiet "update \"$mw($wn,tablename)\" \
+	  	set \"$fld\"='$sqlfldval' where oid=$oid"]
+       }
+
 }
 cursor_normal
 if {!$retval} {