--- 3m-810.pl	2010/07/23 13:16:51	92
+++ 3m-810.pl	2010/07/23 13:21:44	93
@@ -522,7 +522,7 @@
 
 	cmd(
 		"d6 00  ff  04  $tag  00 $blocks 00  $hex_data  BEEF", "write $tag",
-		"d6 00  0d  06 00  $tag  $blocks  BEEF", sub { assert(); $ok++ },
+		"d6 00  0d  04 00  $tag  $blocks  BEEF", sub { assert(); $ok++ },
 		"d6 00  0d  04 06  ", sub {
 			my $data = shift;
 			warn "no tag ",as_hex( substr($data,0,8) ), " in range for write\n";