diff --git a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
index b1f3fae..796c482 100644
--- a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
+++ b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
@@ -9,10 +9,10 @@ s {
                         0 {
                                 switch -- $c {
                                          \003 {set f 1;set b \003}
-                                         \002 {lappend e [list $i \002]}
-                                         \037 {lappend e [list $i \037]}
-                                         \026 {lappend e [list $i \026]}
-                                         \017 {lappend e [list $i \017]}
+                                         \002 {lappend a $c; lappend e [list $i \002]}
+                                         \037 {lappend a $c; lappend e [list $i \037]}
+                                         \026 {lappend a $c; lappend e [list $i \026]}
+                                         \017 {lappend a $c; lappend e [list $i \017]}
                                          default {lappend a $c;incr i}
                                 }
                         }