diff --git a/basis/compiler/tree/dead-code/simple/simple.factor b/basis/compiler/tree/dead-code/simple/simple.factor
index bdb670773c..a4df21392d 100644
--- a/basis/compiler/tree/dead-code/simple/simple.factor
+++ b/basis/compiler/tree/dead-code/simple/simple.factor
@@ -9,10 +9,10 @@ IN: compiler.tree.dead-code.simple
 
 : flushable-call? ( #call -- ? )
     dup word>> dup flushable? [
-        "input-classes" word-prop dup [
+        word>input-infos [
             [ node-input-infos ] dip
-            [ [ class>> ] dip class<= ] 2all?
-        ] [ 2drop t ] if
+            [ value-info<= ] 2all?
+        ] [ drop t ] if*
     ] [ 2drop f ] if ;
 
 M: #call mark-live-values*