--- M6502/Screen.pm	2007/08/02 16:21:17	99
+++ M6502/Screen.pm	2007/08/02 17:15:07	101
@@ -259,7 +259,7 @@
 	my $self = shift;
 
 	# don't take key, just pull event
-	my $just_checking = shift;
+	my $just_checking = shift || 0;
 
 	my $event = $self->event || confess "no event?";
 
@@ -276,13 +276,14 @@
 		if ( $k eq 'escape' ) {
 			$run_for = $self->cli;
 			warn "will check event loop every $run_for cycles\n";
+			$pending_key = '~';
 		} else {
-			warn "SDL_KEYDOWN ($type) = '$k'\n";
-			$pending_key = $k if $just_checking;
+			warn "SDL_KEYDOWN ($type) = '$k'", $just_checking ? ' fake' : '', "\n";
+			$pending_key = $k;
 		}
 	} elsif ( $type == SDL_KEYUP ) {
 		my $up = $event->key_name();
-		warn "SDL_KEYUP ($type) = '$up'\n";
+		warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n";
 		undef $pending_key;
 	}