new accessors

diff --git a/extra/asn1/asn1.factor b/extra/asn1/asn1.factor
index 3c4aea028b34c26eca8be6e0434c541518126fe2..df5d11be751916873d3cbcfd635275828bb92fc0 100644 (file)
--- 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 ;