diff --git a/basis/compiler/cfg/representations/selection/selection.factor b/basis/compiler/cfg/representations/selection/selection.factor
index 1175113774..b498ce29f7 100644
--- a/basis/compiler/cfg/representations/selection/selection.factor
+++ b/basis/compiler/cfg/representations/selection/selection.factor
@@ -128,7 +128,7 @@ M: vreg-insn compute-insn-costs
     ] each-basic-block ;
 
 : minimize-costs ( costs -- representations )
-    [ nip assoc-empty? ] assoc-reject
+    harvest-values
     [ >alist alist-min first ] assoc-map ;
 
 : compute-representations ( cfg -- )
diff --git a/basis/regexp/disambiguate/disambiguate.factor b/basis/regexp/disambiguate/disambiguate.factor
index 2f8725cd18..f985b0e234 100644
--- a/basis/regexp/disambiguate/disambiguate.factor
+++ b/basis/regexp/disambiguate/disambiguate.factor
@@ -66,7 +66,7 @@ TUPLE: parts in out ;
         dup new-transitions '[
             [
                 _ swap '[ _ get-transitions ] assoc-map
-                [ nip empty? ] assoc-reject
+                harvest-values
             ] preserving-epsilon
         ] assoc-map
     ] change-transitions ;