--- M6502/Screen.pm	2007/07/31 08:49:22	41
+++ M6502/Screen.pm	2007/07/31 09:43:50	45
@@ -107,7 +107,7 @@
 	my $mask = 1;
 	my $scale = $self->scale;
 
-#	printf "## vram %04x %02x*%02x %02x\n", $offset, $x, $y, $byte if $self->trace;
+	printf "## vram %04x %02x*%02x %02x\n", $offset, $x, $y, $byte if $self->trace;
 
 	foreach ( 0 .. 7 ) {
 		my $on = $byte & $mask;