diff --git a/forth/bootstrap/bootstrap.fs b/forth/bootstrap/bootstrap.fs
index a7d6b19..e9107f3 100644
--- a/forth/bootstrap/bootstrap.fs
+++ b/forth/bootstrap/bootstrap.fs
@@ -1043,6 +1043,13 @@ variable #instance
   then
   ; immediate
 
+: is ( xt "wordname<>" -- )
+  parse-word $find if
+    (to)
+  else
+    s" could not find " type type
+  then
+  ;
 
 \ 
 \ 7.3.4.2 Console Input