--- M6502/Orao.pm	2007/07/31 09:37:01	42
+++ M6502/Orao.pm	2007/07/31 09:43:21	43
@@ -224,6 +224,7 @@
 
 sub prompt {
 	my $self = shift;
+	$self->app->sync;
 	my $a = shift;
 	my $last = shift;
 	print STDERR $self->hexdump( $a ),
@@ -307,8 +308,7 @@
 sub cli {
 	my $self = shift;
 	my $a = $PC || confess "no pc?"; 
-	$self->app->sync;
-	while ( my @v = $orao->prompt( $a, $last ) ) {
+	while ( my @v = $self->prompt( $a, $last ) ) {
 		my $c = shift @v;
 		my $v = shift @v;
 		$v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/;