--- Screen.pm	2007/08/05 01:34:40	143
+++ Screen.pm	2007/08/05 13:27:27	145
@@ -49,6 +49,7 @@
 	);
 	#$app->grab_input( SDL_GRAB_QUERY );
 	$app->grab_input( SDL_GRAB_OFF );
+	$app->title( ref($self) . ' ' . $self::VERSION );
 
 	$self->app( $app );
 
@@ -262,7 +263,10 @@
 		undef $pending_key;
 	}
 
-	warn "key_pressed = $pending_key\n" if $pending_key;
+	if ( $pending_key ) {
+		warn "key_pressed = $pending_key\n";
+		$self->record_session('key_pressed', $pending_key);
+	}
 
 	return $pending_key;
 }