  `Method: FR_UpgradeBlobFieldStep1
  `for 4D 2004

  `$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
ttFRScript:=BLOB to text($pScriptField->;Text without length)

 `remove the checksum
$xlError:=FRRemoveChecksum(ttFRScript)

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