diff --git a/kernel/comp.fs b/kernel/comp.fs
index b87f7cf55543e320d547b35831cf033a661bf801..82d0f784fd2bbb46569cb702b4c4df2dbab62ec6 100644
--- a/kernel/comp.fs
+++ b/kernel/comp.fs
@@ -147,13 +147,15 @@ Defer check-shadow ( addr u wid -- )
     dup here + dup cfaligned >align
     nlstring,
     get-current 1 or A,
+    here xt-location drop
     \ link field; before revealing, it contains the
     \ tagged reveal-into wordlist
     here cell+ last ! ; \ set last header
 : 0name, ( -- )
-    cfalign 0 last ! ;
+    cfalign 0 last !
+    here xt-location drop ;
 : namevt, ( namevt -- )
-    here xt-location drop , here lastcfa ! ; \ add location stamps on vt+cf
+    , here lastcfa ! ; \ add location stamps on vt+cf
 
 : noname-vt ( -- )
     \G modify vt for noname words