  `Method: FR_UpgradeBlobFieldStep3
  `for 4D v11/v12

 `$1 = ->Script blob field
  `ASSUMPTION: Current record with script can be saved
C_POINTER($1;$pScriptField;$pScriptTable)
C_TEXT(ttFRScript)
C_LONGINT($xlError)

$pScriptField:=$1
  `load script without checksum
ttFRScript:=BLOB to text($pScriptField->;Text without length)

`restore checksum
$xlError:=FRAppendChecksum(ttFRScript)

`resave script w/ checksum back into field
SET BLOB SIZE($pScriptField->;0)
TEXT TO BLOB(ttFRScript;$pScriptField->;Text without length)
$pScriptTable:=Table(Table($pScriptField))
SAVE RECORD($pScriptTable->)