--- M6502/Screen.pm	2007/07/30 21:00:36	33
+++ M6502/Screen.pm	2007/07/30 22:06:13	36
@@ -107,7 +107,7 @@
 	printf "## vram %04x %02x*%02x %02x\n", $offset, $x, $y, $byte if $self->trace;
 
 	foreach ( 0 .. 7 ) {
-		p($x + $_, $y, $byte & $mask );
+		$self->p($x + $_, $y, $byte & $mask );
 		$mask = $mask << 1;
 	}
 }