diff --git a/common/utils.fs b/common/utils.fs
index b68336b..49787c1 100644
--- a/common/utils.fs
+++ b/common/utils.fs
@@ -131,9 +131,10 @@ variable indent
     ?see-flags cr
     exit
   then
-  dup >flags BUILTIN_FORK and if ." Built-in fork: " see. exit then
+  dup >flags BUILTIN_FORK and if ." Built-in-fork: " see. exit then
   dup @ ['] input-buffer @ = if ." CREATE/VARIABLE: " see. cr exit then
   dup @ ['] SMUDGE @ = if ." DOES>/CONSTANT: " see. cr exit then
+  dup @ ['] callcode @ = if ." Code: " see. cr exit then
   dup >params 0= if ." Built-in: " see. cr exit then
   ." Unsupported: " see. cr ;
 
diff --git a/examples/code_x64.fs b/examples/code_x64.fs
index 4468dfc..b6a416d 100644
--- a/examples/code_x64.fs
+++ b/examples/code_x64.fs
@@ -8,5 +8,6 @@ code my2*
   $c3 code1,                       ( ret )
 end-code
 
+see my2*
 123 my2* . cr
 bye