anchor.diff:  		     :format-arguments (list byte)))
   	     (#.+SQU+			; Quote Unicode
   	      (when *scsu-state-trace*
  -		(format *debug-io* "SQU "))
  +		(format *trace-output* "SQU "))
   	      (let ((char (decode-quote-unicode read-func)))
   		(prog1 char
   		  (when *scsu-state-trace*
  -		    (format *debug-io* "[quote unicode ~X]" char)))))
  +		    (format *trace-output* "[quote unicode ~X]" char)))))
   	     (#.+SCU+			; Change to Unicode
   	      (when *scsu-state-trace*
  -		(format *debug-io* "SCU "))
  +		(format *trace-output* "SCU "))
   	      (setf (scsu-state-mode state) :unicode-mode)
   	      (decode-unit* state read-func))
   	     ((#.+SC0+ #.+SC1+ #.+SC2+ #.+SC3+ #.+SC4+ #.+SC5+ #.+SC6+ #.+SC7+) ; Change to Window
   	      (when *scsu-state-trace*
  -		(format *debug-io* "SC~D " (find-SCn-window byte)))
  +		(format *trace-output* "SC~D " (find-SCn-window byte)))
   	      (scsu-change-to-window state (find-SCn-window byte))
   	      (decode-unit* state read-func))
   	     ((#.+SD0+ #.+SD1+ #.+SD2+ #.+SD3+ #.+SD4+ #.+SD5+ #.+SD6+ #.+SD7+) ; Define Window
   	      (when *scsu-state-trace*
  -		(format *debug-io* "SD~D " (find-SDn-window byte)))
  +		(format *trace-output* "SD~D " (find-SDn-window byte)))
   	      (scsu-define-window state
   				  (find-SDn-window byte)
   				  (lookup-window-offset-table (funcall read-func)))
   	      (decode-unit* state read-func))))
   	  ((<= byte #x7F)		  ; Basic Latin Block.
   	   (when *scsu-state-trace*
  -	     (format *debug-io* "[single-byte ASCII ~X]" byte))
  +	     (format *trace-output* "[single-byte ASCII ~X]" byte))
   	   byte)
   	  (t				; In active dynamic window.
   	   (let ((offset (scsu-state-active-window-offset state))
  
positive.code: 		(scsu-state-update-timestamp state window)
  		(cond ((<= #x0 next-byte #x7f)
  		       (when *scsu-state-trace*
  			 (format *debug-io* "[single quote static ~X]" next-byte))
  		       (+ (lookup-static-window window) next-byte))
  		      (t
  		       (when *scsu-state-trace*
  			 (format *debug-io* "[single quote dynamic ~X]" next-byte))
  		       (+ (lookup-dynamic-window state window)
  			  (logand next-byte #x7f))))))
  	     (#.+SDX+			; Define Extended
  	      (when *scsu-state-trace*
  		(format *debug-io* "SDX "))
  	      (decode-define-window-extended state read-func)
  	      (decode-unit* state read-func))
  	     (#xC
  
negative.code: 	   (ecase byte
  	     ((#x0 #x9 #xA #xD)		; pass
  	      (when *scsu-state-trace*
  		(format *trace-output* "[single-byte ASCII ~X]" byte))
  	      byte)
  	     ((#.+SQ0+ #.+SQ1+ #.+SQ2+ #.+SQ3+ #.+SQ4+ #.+SQ5+ #.+SQ6+ #.+SQ7+) ; Quote from Window
  	      (when *scsu-state-trace*
  		(format *trace-output* "SQ~D " (find-SQn-window byte)))
  	      (let ((window (find-SQn-window byte))
  		    (next-byte (funcall read-func)))
  		(declare (type window-index window)
  