Current behavior:
>> transcode/error to-binary "a,"
== [make error! [
        code: 200
        type: 'Syntax
        id: 'invalid
        arg1: "word"
        arg2: "a,"
        arg3: none
        near: "(line 1) a,"
        where: [transcode]
    ] #{}]
>> transcode to-binary "a,0"
** Syntax error: invalid "word" -- "a,0"
>> to-block "a,0"
** Syntax error: invalid "word" -- "a,0"

Desired behavior:
>> transcode/error to-binary "a,"
== [a make error! [
        code: 200
        type: 'Syntax
        id: 'invalid
        arg1: "word"
        arg2: ","
        arg3: none
        near: "(line 1) a,"
        where: [transcode]
    ] #{}]
>> equal? reduce ['a to-binary ","] transcode/next to-binary "a,"
== true
>> transcode/next to-binary "a,"
== [a #{2C}]
>> transcode to-binary "a,0"
== [a 0.0]
>> to-block "a,0"
== [a 0.0]

And the effect on LOAD:
>> load "a,0"
== [a 0.0]