--- M6502/Screen.pm	2007/07/30 17:56:13	30
+++ M6502/Screen.pm	2007/07/30 18:07:29	31
@@ -22,6 +22,12 @@
 
 sub open_screen {
 	my $self = shift;
+
+	if ( ! $self->scale ) {
+		$self->scale( 1 );
+		warn "using default unscaled display\n";
+	}
+
 	$app = SDL::App->new(
 		-width  => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ),
 		-height => 256 * $self->scale,