--- M6502/M6502.pm	2007/08/02 12:01:09	89
+++ M6502/M6502.pm	2007/08/02 12:23:18	90
@@ -90,7 +90,7 @@
 	warn sprintf("## M6502::poke_code(%04x,%s)\n", $addr, dump( @_ )) if $self->debug;
 	#$mem[$addr++] = $_ foreach @_;
 	# call low-level write
-	M6502::write($addr++, $_) foreach @_;
+	$_rw_hooks->{write}->( $addr++, $_ ) foreach @_;
 }
 
 =head2 ram