Index: /branches/binary/server/t/binary.t
===================================================================
--- /branches/binary/server/t/binary.t (revision 765)
+++ /branches/binary/server/t/binary.t (revision 767)
@@ -366,5 +366,9 @@
 	my $init_lo = int($init % 2 ** 32);
 
-	return $self->_doCmd($cmd, $key, '', pack(::INCRDECR_PKT_FMT, $amt_hi, $amt_lo, $init_hi, $init_lo, $exp));
+	my $data = $self->_doCmd($cmd, $key, '', pack(::INCRDECR_PKT_FMT, $amt_hi, $amt_lo, $init_hi, $init_lo, $exp));
+	my $header = substr $data, 0, 12, '';
+	my ($resp_hi, $resp_lo) = unpack "NN", $header;
+	my $resp = ($resp_hi * 2 ** 32) + $resp_lo;
+    return $resp;
 }
 
@@ -386,5 +390,5 @@
 	$exp = 0 unless defined $exp;
 
-	return $self->__incrdecr(::CMD_INCR, $key, 0 - $amt, $init, $exp);
+	return $self->__incrdecr(::CMD_DECR, $key, $amt, $init, $exp);
 }