diff --git a/extra/editors/editors.factor b/extra/editors/editors.factor
index f0c5289dd9..3b65466225 100755
--- a/extra/editors/editors.factor
+++ b/extra/editors/editors.factor
@@ -35,6 +35,9 @@ SYMBOL: edit-hook
 : edit ( defspec -- )
     where [ first2 edit-location ] when* ;
 
+: edit-vocab ( name -- )
+    vocab-source-path 1 edit-location ;
+
 : :edit ( -- )
     error get delegates [ parse-error? ] find-last nip [
         dup parse-error-file source-file-path ?resource-path