ber: Provide a nicer name for the BERTag (include the tuple)

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 [