vocabs: in create-vocab, notify-vocab-observers after updating dictionary.

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