common error enum; eval to _ev

1 files changed, 1 insertions, 1 deletions

diff --git a/core.fth b/core.fth
index c23c366..a8ccb9d 100644
--- a/core.fth
+++ b/core.fth
@@ -199,5 +199,5 @@
 : :noname  0 , here ] ;
 
 : evaluate _source @ >r _sourceu @ >r >in @ >r
-           0 >in ! _sourceu ! _source ! 5 sys
+           0 >in ! _sourceu ! _source ! _ev
            r> >in ! r> _sourceu ! r> _source ! ;