fixed with-ksmps to advance *current-buffer-num* independently within body of code