--- M6502/Orao.pm	2007/07/30 17:56:13	30
+++ M6502/Orao.pm	2007/07/30 18:07:29	31
@@ -40,7 +40,7 @@
 	warn "call upstream init\n";
 	$self->SUPER::init( @_ );
 
-	warn "staring Orao $ORAO::VERSION emulation\n";
+	warn "staring Orao $Orao::VERSION emulation\n";
 
 	$self->open_screen;
 	$self->load_rom;
@@ -80,7 +80,7 @@
 	my $self = shift;
 	my ( $path, $addr ) = @_;
 
-	my $size = -s $path || die "no size for $path: $!";
+	my $size = -s $path || confess "no size for $path: $!";
 
 	my $buff = read_file( $path );