diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 3c4aea028b..df5d11be75 100644
--- a/extra/asn1/asn1.factor
+++ b/extra/asn1/asn1.factor
@@ -184,7 +184,7 @@ TUPLE: tag value ;
     tagnum get (>>value) ;
 
 M: string >ber ( str -- byte-array )
-    tagnum get tag-value 1array "C" pack-native swap dup
+    tagnum get value>> 1array "C" pack-native swap dup
     length >ber-length-encoding swapd append swap
     >byte-array append ;