--- Convert-BER-XS/XS.pm	2019/04/21 23:10:55	1.50
+++ Convert-BER-XS/XS.pm	2019/04/22 00:53:54	1.51
@@ -560,7 +560,7 @@
             $data = unpack "H*", $data;
          } else {
             $data =~ s/[^\x20-\x7e]/./g;
-            $data = "\"$data\"" if $type =~ /string/i || !length $data;
+            $data = "\"$data\"" if $tag =~ /string/i || !length $data;
          }
 
          substr $data, 40, 1e9, "..." if 40 < length $data;