anchor.diff:           (flet ((print-fresh-user ()
   		  "requery to get what the db has, and print out."
   		  (let ((node (car (clsql:select 'user
  -				     :where [= [slot-value 'user 'user-id]
  -					       5]
  -				     :flatp t
  -				     :caching nil))))
  +				     :where [= 5 [slot-value 'user 'user-id]]
  +				     :flatp t :caching nil))))
   		    (format nil "~a ~a ~a"
   			    (slot-value node 'user-id)
   			    (slot-value node 'title)
  
positive.code: 	(deftest :oodml/update-records/9
  	  (flet ((print-fresh-subloc ()
  		   (let ((sl (car (clsql:select 'subloc
  				    :where [= [slot-value 'subloc 'subloc-id]
  					      10]
  				    :flatp t
  				    :caching nil))))
  		     (format nil "~a ~a ~a"
  			     (slot-value sl 'subloc-id)
  			     (slot-value sl 'title)
  
negative.code:         (deftest :oodml/update-records/8
  	  (flet ((print-fresh-theme ()
  		   (let ((node (car (clsql:select 'theme
  				      :where [= 6 [slot-value 'theme 'theme-id]]
  				      :flatp t :caching nil))))
  		     (format nil "~a ~a ~a ~a ~a ~a"
  			     (slot-value node 'node-id)
  			     (slot-value node 'setting-id)
  