cannot kill last buffer if it is named '*scratch*'

Bleeeeep! -bp Signaling: (wrong-type-argument arrayp nil) aref(nil 0) (equal "*scratch*" (aref (car buffers) 0)) ) (if (equal "*scratch*" (aref ... 0)) nil (setq buffers (cdr buffers))) ) (unless (equal "*scratch*" (aref ... 0)) (setq buffers (cdr buffers))) ) (if buffers nil (get-buffer-create "*scratch*") (setq buffers (buffers-tab-items t)) (unless (equal "*scratch*" ...) (setq buffers ...))) ) (unless buffers (get-buffer-create "*scratch*") (setq buffers (buffers-tab-items t)) (unless (equal "*scratch*" ...) (setq buffers ...))) ) (let ((inst ...) (buffers ...)) (unless buffers (get-buffer-create "*scratch*") (setq buffers ...) (unless ... ...)) (setq fuckme buffers) (set-image-instance-property inst :items buffers) (resize-subwindow inst (gutter-pixel-width) nil)) ) (if (valid-image-instantiator-format-p (quote tab-control)) (let (... ...) (unless buffers ... ... ...) (setq fuckme buffers) (set-image-instance-property inst :items buffers) (resize-subwindow inst ... nil))) ) (when (valid-image-instantiator-format-p (quote tab-control)) (let (... ...) (unless buffers ... ... ...) (setq fuckme buffers) (set-image-instance-property inst :items buffers) (resize-subwindow inst ... nil))) ) remove-buffer-from-gutter-tab() kill-buffer("*scratch*") call-interactively(kill-buffer)