diff --git a/collects/compiler/zo-marshal.rkt b/collects/compiler/zo-marshal.rkt index d3b0210063..6e0d8ae475 100644 --- a/collects/compiler/zo-marshal.rkt +++ b/collects/compiler/zo-marshal.rkt @@ -675,7 +675,8 @@ (vector-map encode-wrapped v)] [(? prefab-struct-key) (define l (vector->list (struct->vector datum))) - (make-prefab-struct + (apply + make-prefab-struct (car l) (map encode-wrapped (cdr l)))] [_ datum])]