Fixed an issue with kwic.corpus where it sometimes failed - this involved changing an sapply() to lapply().

Ultimately we ought to vectorize kwic.character to make the lapply unnecessary.