diff --git a/zo-lib/compiler/zo-marshal.rkt b/zo-lib/compiler/zo-marshal.rkt index 0684e7261c..d6eb6fbf82 100644 --- a/zo-lib/compiler/zo-marshal.rkt +++ b/zo-lib/compiler/zo-marshal.rkt @@ -728,7 +728,7 @@ (out-number id out)] [(struct assign (id rhs undef-ok?)) (out-marshaled set-bang-type-num - (cons undef-ok? (cons id rhs)) + (cons undef-ok? (cons id (protect-quote rhs))) out)] [(struct localref (unbox? offset clear? other-clears? type)) (if (and (not clear?) (not other-clears?) (not flonum?)