diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index e019f98..a5e5b98 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -937,7 +937,7 @@
 	  ((make-simple-result-buffer-printer y x text '() '())
 	   win buffer have-focus?)))
 
-       ((eq? message 'key)
+       ((eq? message 'key-press)
 	(lambda (self . ignore)
 	  self))))))