fixed a bug in prelude-create-scratch-buffer