Small bug code\(damn emacs-lisp idiosyncrasies\)