anchor.diff:                              let property = { PropertyType = property.PropertyType; PropertyValue = propertyValue }
                               match World.trySetSimulantProperty propertyName property simulant world with
                               | (true, world) -> struct (Unit, world)
  -                            | (false, world) -> struct (Violation (["InvalidProperty"; fnName], "Property value could not be set.", originOpt), world)
  -                        | None -> struct (Violation (["InvalidPropertyValue"; fnName], "Property value could not be exported into Simulant property.", originOpt), world)
  +                            | (false, world) -> struct (Violation (["InvalidProperty"; String.capitalize fnName], "Property value could not be set.", originOpt), world)
  +                        | None -> struct (Violation (["InvalidPropertyValue"; String.capitalize fnName], "Property value could not be exported into Simulant property.", originOpt), world)
                       | _ ->
                           match ScriptingWorld.tryExport property.PropertyType propertyValue world with
                           | Some propertyValue ->
                               let property = { PropertyType = property.PropertyType; PropertyValue = propertyValue }
                               match World.trySetSimulantProperty propertyName property simulant world with
                               | (true, world) -> struct (Unit, world)
  -                            | (false, world) -> struct (Violation (["InvalidProperty"; fnName], "Property value could not be set.", originOpt), world)
  -                        | None -> struct (Violation (["InvalidPropertyValue"; fnName], "Property value could not be exported into Simulant property.", originOpt), world)
  -                | None -> struct (Violation (["InvalidProperty"; fnName], "Property value could not be set.", originOpt), world)
  +                            | (false, world) -> struct (Violation (["InvalidProperty"; String.capitalize fnName], "Property value could not be set.", originOpt), world)
  +                        | None -> struct (Violation (["InvalidPropertyValue"; String.capitalize fnName], "Property value could not be exported into Simulant property.", originOpt), world)
  +                | None -> struct (Violation (["InvalidProperty"; String.capitalize fnName], "Property value could not be set.", originOpt), world)
               | Left error -> error
   
           static member internal evalSetAsStream fnName propertyName relationOpt stream originOpt world =
  
positive.code:                             | Left opt -> match opt with Some expr -> Some (Either (Left expr)) | None -> None)
                              stream
                      struct (Pluggable { Stream = stream }, world)
                  | _ -> struct (Violation (["InvalidArgumentType"; fnName], "Function '" + fnName + "' requires a Stream for its 1st and 2nd arguments.", originOpt), world)
              | _ -> struct (Violation (["InvalidArgumentType"; fnName], "Function '" + fnName + "' requires a Stream for its 1st and 2nd arguments.", originOpt), world)
  
          static member internal evalMonitor5 subscription (eventAddress : obj Address) subscriber world =
              EventWorld.subscribe (fun evt world ->
  
negative.code:                                 world
                          let world = WorldModule.addSimulantScriptUnsubscription unsubscribe simulant world
                          struct (Unit, world)
                      | _ -> struct (Violation (["InvalidArgumentType"; String.capitalize fnName], "Function '" + fnName + "' requires a Stream for its last argument.", originOpt), world)
                  | _ -> struct (Violation (["InvalidArgumentType"; String.capitalize fnName], "Function '" + fnName + "' requires a Stream for its last argument.", originOpt), world)
              | Left error -> error
  
          static member internal evalMakeStream fnName evaledArg originOpt world =
  