fixed procedure WideStringFree()