--- Orao.pm	2007/08/04 20:50:33	131
+++ Orao.pm	2007/08/04 21:04:05	132
@@ -117,7 +117,7 @@
 
 	$self->loop( sub {
 		my $run_for = shift;
-#		warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for);
+		warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace;
 		M6502::exec( $run_for );
 		$self->render_vram;
 	});
@@ -337,7 +337,7 @@
 	my $self = shift;
 	my ($addr) = @_;
 	return if ( $addr > 0xffff );
-	my $byte = @mem[$addr];
+	my $byte = $mem[$addr];
 	confess sprintf("can't find memory at address %04x",$addr) unless defined($byte);
 	warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;