anchor.diff:                                           (eql corba:vm_truncatable (op:type_modifier tc)))))
                      (let ((chunking (or truncatable (> *chunking-level* 0)))
                            (repoid (cond (truncatable (truncatable-interfaces tc))
  -                                       ((not exact-type) id))))
  +                                       ((or (not exact-type) 
  +                                            (not *exact-type-value-marshap-opt*))
  +                                        id))))
                        (marshal-value-header repoid chunking buffer)
                        (marshal-value-state chunking 
                                             (all-feature-values tc value)
  
positive.code:          (marshal-multiple values types buffer))))
  
  
  (defun marshal-value (value buffer &optional expected-id)
    (flet ((marshal-value-1 (value buffer)
             (let ((id (object-id value)))
  
negative.code:   :kind :tk_value_box
    :cdr-syntax (complex :tk_string :tk_string :tk_typecode)
    :params (id name content_type)
    :share named-typecode
    :shared-params 2)
  
  
  (defclass value-box ()
  