--- a/WinWorkstation.st	Mon Sep 11 11:36:53 2017 +0200
+++ b/WinWorkstation.st	Mon Sep 11 16:21:13 2017 +0200
@@ -12264,7 +12264,8 @@
 		x = ev->ev_x;
 		y = ev->ev_y;
 		state = ev->ev_modifiers;
-		dir = ev->ev_wParam;
+		dir = GET_WHEEL_DELTA_WPARAM(ev->ev_wParam);
+		// dir = ev->ev_wParam & 0xFFFF;
 		DPRINTF((">>> WM_MOUSEWHEEL: %d %x\n", dir, state));
 		{
 		    OBJ tim;