anchor.diff:    ;; Some kind of anonymous structure.
     ;; Second, no sense constructing a template when all the old code
     ;; cared about was consing up the names "SLOT1", "SLOT2", etc.
  -
  -  (let* ((template (uref x 1))
  +  ;; Back to old code.
  +
  +  (let* ((template (get-template x))
   	 (*print-escape* nil)
   	 (num-slots)) 
   				
  
positive.code:      (t (format t "Sorry, no description available for ~A" object))
       )))
  
  
  
  (defun describe-structure (x s) 
    
  
negative.code: 	    *dfs-a* (list "template" 	(uref x 1))
  	    *dfs-hex* (list "heap address" (%uvector-address x)))
  
      (dotimes (i num-slots)
  	(format s *dfs-s*
  		(elt template (+ 6 (* i 5)))
  		(uref x (+ 2 i))))))
  
  (defun describe-foreign (x s) 
  	(format s "FOREIGN POINTER:~%~?~?"
  