diff --git a/src/core/CCInt.ml b/src/core/CCInt.ml
index 811e1737..d391d0eb 100644
--- a/src/core/CCInt.ml
+++ b/src/core/CCInt.ml
@@ -39,7 +39,7 @@ let hash (n : int) : int =
   let h = ref offset_basis in
   for k = 0 to 7 do
     (h := Int64.(mul !h prime));
-    (* h := h xor (k-th bit of n) *)
+    (* h := h xor (k-th byte of n) *)
     h := Int64.(logxor !h (of_int ((n lsr (k * 8)) land 0xff)))
   done;
   Int64.to_int !h land max_int
diff --git a/src/core/CCInt64.ml b/src/core/CCInt64.ml
index e94cccc2..bfe8ec29 100644
--- a/src/core/CCInt64.ml
+++ b/src/core/CCInt64.ml
@@ -16,8 +16,8 @@ let hash_to_int64 (n : t) =
   let h = ref offset_basis in
   for k = 0 to 7 do
     h := mul !h prime;
-    (* h := h xor (k-th bit of n) *)
-    h := logxor !h (logand (shift_left n (k * 8)) 0xffL)
+    (* h := h xor (k-th byte of n) *)
+    h := logxor !h (logand (shift_right n (k * 8)) 0xffL)
   done;
   logand !h max_int