--- asn.tcl.old	Sun Aug 13 11:28:40 2006
+++ asn.tcl	Sun Aug 13 11:29:14 2006
@@ -263,8 +263,8 @@
 proc ::asn::asnContext {contextNumber data} {
     # Packs the arguments into a constructed value with application tag.
     set code [expr {0x080 + $contextNumber}]
-    set len  [string length $out]
-    return [binary format ca*a$len $code [asnLength $len] $out]
+    set len  [string length $data]
+    return [binary format ca*a$len $code [asnLength $len] $data]
 }
 #-----------------------------------------------------------------------------
 # asnChoice
