diff --git a/asm/forth-dictionary.s b/asm/forth-dictionary.s
index 4a789e0..2ad331c 100644
--- a/asm/forth-dictionary.s
+++ b/asm/forth-dictionary.s
@@ -6407,7 +6407,7 @@ eword
 dword     VOCABULARY,"VOCABULARY"
           ENTER
           .dword CREATE
-          .dword _COMP_LIT
+dovocab:  .dword _COMP_LIT
           .dword H_FORTH          ; root of all dictionaries
           .dword LAST
           .dword drXT             ; XT of the just-created word
@@ -6421,6 +6421,15 @@ dword     VOCABULARY,"VOCABULARY"
           EXIT
 eword
 
+; H: ( c-addr u -- ) create a new named wordlist definition as per VOCABULARY
+; H: meant for adding more builtin dictionaries (e.g. platform specific dictionaries)
+; H: which are expected to adjust the root to the new wordlist
+hword    dVOCAB,"$VOCAB"
+         ENTER
+         .dword dCREATE
+         JUMP VOCABULARY::dovocab
+eword
+
 .endif
 
 .if 0 ; half-baked