diff --git a/pandora_agents/unix/pandora_agent b/pandora_agents/unix/pandora_agent
index 6f62a5189c..a7fce3cb3d 100755
--- a/pandora_agents/unix/pandora_agent
+++ b/pandora_agents/unix/pandora_agent
@@ -1363,7 +1363,7 @@ sub md5 {
 	# Append bit /* bit, not byte */ length of unpadded message as 64-bit
 	# little-endian integer to message.
 	$msg .= unpack ("B32", pack ("V", $bit_len));
-	$msg .= unpack ("B32", pack ("V", $bit_len >> 32));
+	$msg .= unpack ("B32", pack ("V", ($bit_len >> 16) >> 16));
 
 	# Process the message in successive 512-bit chunks.
 	for (my $i = 0; $i < length ($msg); $i += 512) {