diff --git a/Ibm1130/ibm1130_gui.c b/Ibm1130/ibm1130_gui.c
index 26dfa08d..bf6ccfc0 100644
--- a/Ibm1130/ibm1130_gui.c
+++ b/Ibm1130/ibm1130_gui.c
@@ -741,7 +741,8 @@ HWND CreateSubclassedButton (HWND hwParent, UINT_PTR i)
 static DWORD WINAPI Pump (LPVOID arg)
 {
     MSG msg;
-    int wx, wy, i;
+    int wx, wy;
+    UINT_PTR i;
     RECT r, ra;
     BITMAP bm;
     WNDCLASS cd;