anchor.diff:    (unless *read-seen-p*
       (error "Illegal, sort command before read command"))
     (if *bst-compiling*
  -      (push `(setq bib-entries
  -	      (stable-sort bib-entries 'string<=
  -	       :key (lambda (entry) (gethash "SORT.KEY$" entry ""))))
  +      (push `(setq ,*bib-entries-symbol*
  +	      (stable-sort ,*bib-entries-symbol* 'string<=
  +	       :key (lambda (,(intern "ENTRY"))
  +		      (gethash "SORT.KEY$" ,(intern "ENTRY") ""))))
   	    *main-lisp-body*)
         (setq *bib-entries*
   	    (stable-sort *bib-entries* 'string<=
  
positive.code: 	   name-list))
    (dolist (bst-name name-list)
      (check-for-already-defined-function bst-name)
      (let ((lisp-name (bst-name-to-lisp-name bst-name)))
        (register-bst-global-var bst-name lisp-name 'int-global-var '(integer) 0 *bst-functions*)
        (when (and *bst-compiling*
  		 (not (member bst-name *lexicals* :test 'string-equal)))
  	(lisp-write `(defvar ,lisp-name 0))))))
  
  (define-bst-command "ITERATE" (function-list)
  
negative.code:   (let* ((name (car function-list))
  	 (function (get-bst-function-of-type name '(built-in wiz-defined compiled-wiz-defined))))
      (if *bst-compiling*
  	(push `(dolist (*bib-entry* ,*bib-entries-symbol*)
  		 ,(bst-compile-thunkcall name))
  	      *main-lisp-body*)
        (dolist (*bib-entry* *bib-entries*)
  