diff --git a/src/utils/tpTermCut.erl b/src/utils/tpTermCut.erl
index e843901..b51cf2b 100644
--- a/src/utils/tpTermCut.erl
+++ b/src/utils/tpTermCut.erl
@@ -14,7 +14,7 @@ cut(Term) ->
 cut(_, Depth) when Depth > ?tcmDepth ->
    '$truncated11';
 cut(Bits, _) when is_bitstring(Bits), bit_size(Bits) > ?tcmBitSize ->
-   <<CutBits:?tcmBitSize/binary, _/bits>> = Bits,
+   <<CutBits:?tcmBinSize/binary, _/bits>> = Bits,
    <<CutBits/binary, "$truncated">>;
 cut(Term, Depth) when is_list(Term) ->
    cutList(Term, Depth, 0, ?tcmListSize, 0, []);