diff --git a/core/TLV.st b/core/TLV.st
index 3905cdd..e7785f9 100644
--- a/core/TLV.st
+++ b/core/TLV.st
@@ -1,5 +1,5 @@
 "
- (C) 2012 by Holger Hans Peter Freyther
+ (C) 2012-2014 by Holger Hans Peter Freyther
  All Rights Reserved
 
  This program is free software: you can redistribute it and/or modify
@@ -57,6 +57,11 @@ Object subclass: TLVDescription [
             ^ #tagOnly
         ]
 
+        lengthValue [
+            <category: 'type'>
+            ^#lv
+	]
+
         new [
             <category: 'creation'>
             ^ super basicNew
@@ -182,6 +187,11 @@ Object subclass: TLVDescription [
         self typeKind: self class tagLengthValue
     ]
 
+    beLV [
+        <category: 'creation'>
+        self typeKind: self class lengthValue
+    ]
+
     beLen16 [
         <category: 'creation'>
         len_size := 2.
diff --git a/core/TLVTests.st b/core/TLVTests.st
index 64982ba..73c6b5a 100644
--- a/core/TLVTests.st
+++ b/core/TLVTests.st
@@ -1,5 +1,5 @@
 "
- (C) 2012 by Holger Hans Peter Freyther
+ (C) 2012,2014 by Holger Hans Peter Freyther
  All Rights Reserved
 
  This program is free software: you can redistribute it and/or modify
@@ -39,6 +39,11 @@ TestCase subclass: TLVDescriptionTest [
         self assert: tlv instVarName = #bla.
 
         tlv tag: 16r23.
-        self assert: tlv tag = 16r23
+        self assert: tlv tag = 16r23.
+
+        tlv beLV.
+        self assert: tlv typeKind = #lv.
+        tlv beTLV.
+        self assert: tlv typeKind = #tlv.
     ]
 ]