diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 256b15601f..e197dff510 100644
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -91,9 +91,8 @@ GENERIC: vocab-changed ( vocab obj -- )
     vocab-observers get [ vocab-changed ] with each ;
 
 : create-vocab ( name -- vocab )
-    check-vocab-name
-    dictionary get [ <vocab> ] cache
-    dup notify-vocab-observers ;
+    check-vocab-name dictionary get
+    [ <vocab> dup notify-vocab-observers ] cache ;
 
 ERROR: no-vocab name ;