diff --git a/typewriter-roll-mode.el b/typewriter-roll-mode.el
index 0055bf9..a416d65 100644
--- a/typewriter-roll-mode.el
+++ b/typewriter-roll-mode.el
@@ -78,8 +78,9 @@ Argument POS cursor's position."
 
 (defun typewriter-roll--check ()
   "Check after typing whether to scroll up as in typewriter."
-  (when (or (typewriter-roll--is-backspace) (eq last-command-event 32))
-    (unless (eq (char-before) 32)
+  (when (or (typewriter-roll--is-backspace)
+            (eq last-command-event (char-from-name "SPACE")))
+    (unless (eq (char-before) (char-from-name "SPACE"))
         (typewriter-roll--scroll-main (current-column))
       (typewriter-roll--scroll-up))))