--- 3m-810.pl	2008/09/28 22:11:39	9
+++ 3m-810.pl	2008/09/28 22:15:29	10
@@ -223,10 +223,11 @@
 # my $checksum = checksum( $bytes, $original_checksum );
 sub checksum {
 	my ( $bytes, $checksum ) = @_;
-	my $xor = 0;
+
+	my $xor = $checksum; # FIXME
 
 	if ( defined $checksum && $xor ne $checksum ) {
-		printf "checksum doesn't match: %04x != %04x data: %s\n", $xor, $checksum;
+		print "checksum doesn't match: ", as_hex($xor), " != ", as_hex($checksum), " data: ", as_hex($bytes), "\n";
 	}
 }