effects.parser: Fix word -> current-word for definition errors.

diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor
index b25dcbd27c737506e0f675a25be76e73479cef89..746e512d555c56428134119145055a5c72a6ed19 100644 (file)
--- a/core/effects/parser/parser.factor
+++ b/core/effects/parser/parser.factor
@@ -57,7 +57,7 @@ SYMBOL: in-definition
 ERROR: can't-nest-definitions word ;
 
 : check-in-definition ( -- )
-    in-definition get [ word can't-nest-definitions ] when ;
+    in-definition get [ current-word can't-nest-definitions ] when ;
 
 : with-definition ( quot -- )
     [ check-in-definition t in-definition ] dip with-variable ; inline