Ion,
If you post the file, maybe we can determine the problem.
Regards,
Neil
Result is the same: $Failed
CellPrint @ Cell[ BoxData[ StringReplace["$CellContext`" -> ""] @ ToString[ ToExpression @ Get[pathToYourCDF][[1, 1, 1, 1]] , InputForm ] ] , "Input" ]