words: prevent zero hashcodes. Fixes #222.

diff --git a/core/words/words.factor b/core/words/words.factor
index 3fa4baaff817952b54e2e33f2d89d3c3bf4eab80..c791829ede3ed8d2fdca87c4ebb89a4b77a99498 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -169,7 +169,7 @@ M: word reset-word
     ] tri ;
 
 : <word> ( name vocab -- word )
-    2dup [ hashcode ] bi@ bitxor >fixnum (word) dup new-word ;
+    2dup swap ":" glue hashcode >fixnum (word) dup new-word ;
 
 : <uninterned-word> ( name -- word )
     f \ <uninterned-word> counter >fixnum (word)