diff --git a/README.md b/README.md
index edfa7d2..983dc77 100644
--- a/README.md
+++ b/README.md
@@ -33,3 +33,4 @@ $ cat helloworld.fs | ./plank
 | R    | rstore   | ( addr -- )   | Set return stack pointer       |
 | {    | dtor     | ( a -- R:a )  | Push value to return stack     |
 | }    | rtod     | ( R: -- a )   | Pop value from return stack    |
+| i    | docol    | ( -- addr )   | Get execution token            |
diff --git a/planck.xxd b/planck.xxd
index 18aa2ee..977f5ff 100644
--- a/planck.xxd
+++ b/planck.xxd
@@ -6,10 +6,10 @@
 00000028: 3400 2000 0100 0000   e_ehsize,e_phentsize,e_phnum,e_shentsize
 00000030: 0000 0000 0100 0000   e_shnum,e_shstrndx,<phdr> PT_LOAD
 00000038: 0000 0000 0080 0408   p_offset,p_vaddr=0x08048000
-00000040: 0000 0000 e002 0000   p_paddr,p_filesz
+00000040: 0000 0000 f802 0000   p_paddr,p_filesz
 00000048: 0000 0008 0700 0000   p_memsz(128MB),PF_X|PF_W|PF_R
 00000050: 0010 0000 0200 0000   p_align, <here>
-00000058: c882 0408 4881 0408   <latest:init="}">, <interpreter>(5c: key)
+00000058: c882 0408 4881 0408   <latest:init="L">, <interpreter>(5c: key)
 00000060: c881 0408 f881 0408   (60: find) (64: execute)
 00000068: 9881 0408 f0ff ffff   (68: jump) (6c: -16)
 00000070: be5c 8004 08bd 0080   (70: movl $interpreter,%esi) (75: movl $0x10048000,%ebp)
@@ -98,3 +98,9 @@
 000002c8: b082 0408 017d 0000   }: rtod
 000002d0: d482 0408 8b45 008d   rpop %eax;
 000002d8: 6d04 50ad ff20 0000   pushl %eax; next;
+
+000002e0: c882 0408 0169 0000   i: docol
+000002e8: ec82 0408 68f8 8204   pushl $docol;
+000002f0: 08ad ff20 0000 0000   next;
+000002f8: 8d6d fc89 7500 83c0   <docol>rpush %esi; addl $4,%eax
+00000300: 0489 c6ad ff20 0000   movl %eax,%esi; next;