diff --git a/BERTLVStream.st b/BERTLVStream.st
index fdcb584..f1af34a 100644
--- a/BERTLVStream.st
+++ b/BERTLVStream.st
@@ -177,6 +177,11 @@ Object subclass: BERTag [
         <category: 'conversion'>
         ^ Array with: self classType with: self isConstructed with: self tagValue.
     ]
+
+    printOn: aStream [
+        <category: 'printing'>
+        ^ aStream nextPutAll: '%1 %2' % {self class. self asTuple.}
+    ]
 ]
 
 Object subclass: BERLength [