--- 3m-810.pl	2008/09/28 14:05:43	2
+++ 3m-810.pl	2008/09/28 14:06:59	3
@@ -164,11 +164,9 @@
 sub assert {
 	my ( $from, $to ) = @_;
 
-	warn "# assert ", dump( $assert );
-
 	my $p = substr( $assert->{payload}, $from, $to );
 	my $e = substr( $assert->{expect},  $from, $to );
-	warn "EXPECTED ",as_hex($e), " GOT ", as_hex($p), "\t[$from-$to]\n" if $e ne $p;
+	warn "EXPECTED ",as_hex($e), " GOT ", as_hex($p), " [$from-$to] in ",dump( $assert ), "\n" if $e ne $p;
 }
 
 sub readchunk {