anchor.diff:          (ensure-equalp r2 s2)
           (ensure-equalp r1 r3))))
   
  +  (define-test "chunked"
  +    (let ((v3 (make-instance 'test-value-3 :name "foo" 
  +                             :next (make-instance 'test-value-3 :name "bar" 
  +                                                  :next nil))))
  +      (marshal v3 tc1 buffer)
  +      (ensure-pattern* (unmarshal tc1 buffer) 
  +                       'op:name "foo"
  +                       'op:next (pattern 'identity (isa 'test-value-3)
  +                                         'op:name "bar"
  +                                         'op:next nil))))
  +  (define-test "chunked box"
  +    (let ((v (make-instance 'test-box-in-value :name "foo" 
  +                             :box (make-instance 'test-box-1 :data 989))))
  +      (marshal v tc1 buffer)
  +      (ensure-pattern* (unmarshal (symbol-typecode 'test-box-in-value) buffer) 
  +                       'op:name "foo"
  +                       'op:box (pattern 'op:data 989))))
  +  
  +
     (define-test "truncated"
       (let ((v3 (make-instance 'test-value-3 :name "foo" 
                                :next (make-instance 'test-value-3 :name "bar" 
  
positive.code:                          'identity (isa 'test-value-1)
                           'op:name "hx")))) 
  
  
  ;; 
  
  
  #| end test suite |#)
  
negative.code:   :original_type CORBA:tc_string
    :type string)
  
  (define-value test-box-in-value
    :id "IDL:test/boxinvalue:1.0"
    :name "boxinvalue"
    :base_value test-value-1
    :is_truncatable t
    :members (("box" (symbol-typecode 'test-box-1) 0)))
  
  (define-test-suite "Value"
    (variables
  