compiler.cfg.value-numbering: fix ##box-displaced-alien simplification

diff --git a/basis/compiler/cfg/value-numbering/simplify/simplify.factor b/basis/compiler/cfg/value-numbering/simplify/simplify.factor
index d38159b4b4f225c9741fa7eacd82669711a520c0..6508801840a55302c093e75e94ee6e592c9a2fc4 100644 (file)
--- a/basis/compiler/cfg/value-numbering/simplify/simplify.factor
+++ b/basis/compiler/cfg/value-numbering/simplify/simplify.factor
@@ -112,7 +112,7 @@ M: binary-expr simplify*
 
 M: box-displaced-alien-expr simplify*
     [ base>> ] [ displacement>> ] bi {
-        { [ dup expr-zero? ] [ drop ] }
+        { [ dup vn>expr expr-zero? ] [ drop ] }
         [ 2drop f ]
     } cond ;