diff --git a/common/boot.fs b/common/boot.fs
index 510c380..95e9257 100644
--- a/common/boot.fs
+++ b/common/boot.fs
@@ -84,6 +84,7 @@ variable leaving
 : loop   1 aliteral postpone +loop ; immediate
 : i ( -- n ) postpone r@ ; immediate
 : j ( -- n ) rp@ 3 cells - @ ;
+: k ( -- n ) rp@ 5 cells - @ ;
 
 ( Exceptions )
 variable handler
diff --git a/common/forth_namespace_tests.fs b/common/forth_namespace_tests.fs
index c963a1c..d3c1a48 100644
--- a/common/forth_namespace_tests.fs
+++ b/common/forth_namespace_tests.fs
@@ -97,6 +97,7 @@ e: check-boot
   out: throw 
   out: catch 
   out: handler 
+  out: k 
   out: j 
   out: i 
   out: loop