fread error if integer column bumps into quoted field containing comma out-of-sample #2614

DT = data.table(A=rep(1, 2200), B="3")
DT[111, B:="3,456"]
fwrite(DT, f<-tempfile())
fread(f)

Error in fread(f) : 
  Line 112 has more than the expected 2 fields. Stopped on <<56">> at character 7. Consider setting 'comment.char=' if there is a trailing comment to be ignored. First 500 characters of line: <<1,"3,456">>

1,3
1,3
1,"3,456"
1,3
1,3