anchor.diff:  
   (defun make-insert$ (model table)
     (setf (lookup-query model 'insert$)
  -        (prepare (sql-compile `(:insert-into ,table :set ',*id* '$1 ',*jdoc* '$2)))))
  +        (prepare (sql-compile `(:insert-into ,table :set ',*id* '$1 ',*jdoc* '$2
  +                                             :returning ',*id*))
  +            :single!)))
   
   (defun make-insert-old$ (model table old-table)
     (setf (lookup-query model 'insert-old$)
  
positive.code:                                                       'valid-from
                                                        ',*jdoc*
                                                        :from ,table
                                                        :where (:= ',*id* '$1))
                                               :returning ',*id*)))))
  
  (defun make-update$ (model table)
    (setf (lookup-query model 'update$)
  
negative.code: 
  (defsetf lookup-query set-lookup-query)
  
  ;;;; Make queries paramaterized on model
  
  (defun make-nextval-sequence$ (model sequence)
  