Looks like a possible problem with Get that is also coming from ToExpression

InputForm@ToExpression["Hold[\[LeftCeiling]Log[2,1+Abs[scale[x]-1]]\[RightCeiling]+1]"]

(* InputForm=Hold[Ceiling[Log[2, 1 + Abs[scale[x] - 1]]]*(Plus[1])] *)

1024 result from the package code comes from BitShiftLeft[2, 9]

1552 result from the Front End implementation comes from BitShiftLeft[3, 9] + 16

The difference in the BitShiftLeft first argument 2 vs 3: 2 + 2^(ne[x] - 1) - 1

Private ne in 2^(ne[4] - 1) - 1 is returning 1

The Package is interpreting [LeftCeiling] stuff [RightCeiling] + 1 into

Times[Ceiling[Log[2, Plus[1, Abs[Plus[scale[x], -1]]]]], Plus[1]]

I would go ahead and replace that line with

Ceiling[Log[2, 1 + Abs[scale[x] - 1]]] + 1

Then it will work for you.