diff --git a/library/RSL_Types.ttcn b/library/RSL_Types.ttcn
index 035d2e387..106249651 100644
--- a/library/RSL_Types.ttcn
+++ b/library/RSL_Types.ttcn
@@ -379,12 +379,14 @@ module RSL_Types {
 	/* 9.3.26 */
 	type uint7_t RSL_Cause;
 	type record RSL_IE_Cause {
+		uint8_t		len,
 		uint1_t		e,
 		RSL_Cause	cause,
 		octetstring	cause_ext optional
-	}
+	} with { variant (len) "LENGTHTO(e,cause,cause_ext)" }
 
 	template RSL_IE_Cause ts_RSL_IE_Cause(RSL_Cause cause) := {
+		len := 0, /* overwritten */
 		e := 0,
 		cause := cause,
 		cause_ext := omit