--- a/lib/basis.urs	Sun Sep 14 19:03:55 2008 -0400
+++ b/lib/basis.urs	Sun Sep 14 19:14:40 2008 -0400
@@ -206,10 +206,10 @@
 val insert : fields ::: {Type}
         -> sql_table fields
         -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc =>
-                [nm = sql_exp [T = fields] [] [] t] ++ acc) [] fields)
+                [nm = sql_exp [] [] [] t] ++ acc) [] fields)
         -> dml
 
-val update : changed ::: {Type} -> unchanged ::: {Type} -> changed ~ unchanged
+val update : changed :: {Type} -> unchanged ::: {Type} -> changed ~ unchanged
         -> $(fold (fn nm (t :: Type) acc => [nm] ~ acc =>
                 [nm = sql_exp [T = changed ++ unchanged] [] [] t] ++ acc) [] changed)
         -> sql_table (changed ++ unchanged)