diff --git a/extra/compiler/cfg/gvn/avail/avail.factor b/extra/compiler/cfg/gvn/avail/avail.factor
index e7d0db8cd3..7851e83723 100644
--- a/extra/compiler/cfg/gvn/avail/avail.factor
+++ b/extra/compiler/cfg/gvn/avail/avail.factor
@@ -34,7 +34,7 @@ M: avail-analysis transfer-set drop defined assoc-union ;
     uses-vregs [ available? ] all? ;
 
 : with-available-uses? ( quot -- ? )
-    [ available-uses? ] bi and ; inline
+    keep swap [ available-uses? ] [ drop f ] if ; inline
 
 : make-available ( insn -- insn )
     dup dst>>