--- Screen.pm	2007/08/05 15:21:10	151
+++ Screen.pm	2007/08/05 15:24:22	152
@@ -242,8 +242,10 @@
 			my ( $key, $state ) = %$h;
 			if ( $state ) {
 				$pending_key = $key;
+				$key_down->{$key}++;
 			} else {
 				undef $pending_key;
+				$key_down->{$key} = 0;
 			}
 		}
 		return $pending_key;