  `Method: FR_UpgradeTextFieldStep3
  `for 4D v11/v12

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

$pScriptField:=$1
 `load script w/o checksum
ttFRScript:=$pScriptField->

 `restore checksum
$xlError:=FRAppendChecksum(ttFRScript)

 `resave script w/ checksum back into field
$pScriptField->:=ttFRScript
$pScriptTable:=Table(Table($pScriptField))
SAVE RECORD($pScriptTable->)