anchor.diff:                              Break (content, originOpt) :> obj
                           | "get" ->
                               match tail with
  -                            | Prime.Atom (nameStr, originOpt) :: tail2
  -                            | Prime.String (nameStr, originOpt) :: tail2 ->
  +                            | Prime.Atom (nameStr, _) :: tail2
  +                            | Prime.String (nameStr, _) :: tail2 ->
                                   match tail2 with
                                   | [] -> Get (nameStr, originOpt) :> obj
                                   | [relation] -> GetFrom (nameStr, this.SymbolToExpr relation, originOpt) :> obj
  
positive.code:                             | _ -> Violation ([!!"InvalidSetForm"], "Invalid set form. Requires a name, a value expression, and an optional relation expression.", originOpt) :> obj
                          | "variableStream" ->
                              match tail with
                              | [Prime.Atom (nameStr, originOpt)]
                              | [Prime.String (nameStr, originOpt)] -> Stream (VariableStream nameStr, originOpt) :> obj
                              | _ -> Violation ([!!"InvalidVariableStreamForm"], "Invalid variable stream form. Requires a name.", originOpt) :> obj
                          | "eventStream" ->
                              match tail with
  
negative.code:                             | _ -> Violation ([!!"InvalidGetForm"], "Invalid get form. Requires a name and an optional relation expression.", originOpt) :> obj
                          | "set" ->
                              match tail with
                              | Prime.Atom (nameStr, _) :: value :: tail2
                              | Prime.String (nameStr, _) :: value :: tail2 ->
                                  match tail2 with
                                  | [] -> Set (nameStr, this.SymbolToExpr value, originOpt) :> obj
                                  | [relation] -> SetTo (nameStr, this.SymbolToExpr value, this.SymbolToExpr relation, originOpt) :> obj
  