diff --git a/ueforth/windows/windows_messages.fs b/ueforth/windows/windows_messages.fs
index 2ca8000..5bdd834 100644
--- a/ueforth/windows/windows_messages.fs
+++ b/ueforth/windows/windows_messages.fs
@@ -171,7 +171,6 @@ windows definitions
 
 255 constant WM_INPUT
 256 constant WM_KEYDOWN
-256 constant WM_KEYFIRST
 257 constant WM_KEYUP
 258 constant WM_CHAR
 259 constant WM_DEADCHAR
diff --git a/ueforth/windows/windows_test.fs b/ueforth/windows/windows_test.fs
index ad5060e..55a3487 100644
--- a/ueforth/windows/windows_test.fs
+++ b/ueforth/windows/windows_test.fs
@@ -64,6 +64,7 @@ hwnd SetForegroundWindow drop
 create mymsg msg allot
 : pump
   begin mymsg NULL 0 0 GetMessageA while
+    \ mymsg ->message @ WM_>name type cr
     mymsg TranslateMessage drop
     mymsg DispatchMessageA drop
   repeat