diff --git a/contrib/pls-mode.el b/contrib/pls-mode.el
index 9f649dc..c2f99a1 100644
--- a/contrib/pls-mode.el
+++ b/contrib/pls-mode.el
@@ -1121,7 +1121,7 @@ identifier."
 (defun pls-adjust-case-interactive (arg)
   (interactive "P")
   (if pls-auto-case 
-      (let ((lastk last-command-char))
+      (let ((lastk last-command-event))
 	(cond ((or (eq lastk ?\n)
 		   (eq lastk ?\r))
 	       ;; horrible kludge