         else
           (jsArray (map serializeAst, ast))
       else
-        serialized = (jsValue (JSON.stringify ast))
-        ast.label = 'const'
-        serialized
+        commedAtom ast, ->
+          serialized = (jsValue (JSON.stringify ast))
+          ast.label = 'const'
+          serialized
     serializeAst expression
 
 ms[','] = ms_comma = (ctx, call) ->

ms['`'] = ms_quote = (ctx, call) ->
  expression = firstOrCall _arguments call

  if ctx.assignTo()

    matchAst = (ast) ->

retrieve = (expression, newForm) ->
  expression.tea = newForm.tea
  expression.malformed = newForm.malformed
  expression.label = newForm.label if newForm.label
  if newForm.tea?.type.origin is newForm
    markOrigin newForm.tea.type, expression

