system: better key-for-value.

diff --git a/core/system/system.factor b/core/system/system.factor
index 27d2de09191541c2fc0e4846f1c0e719ae3569b3..f3f847efc8591a248ea006f1c1e3058b99e492fe 100644 (file)
--- a/core/system/system.factor
+++ b/core/system/system.factor
@@ -42,7 +42,7 @@ CONSTANT: string>os-hash H{
 }
 
 : key-for-value ( key hash -- val )
-    >alist [ first2 nip = ] with filter first first ;
+    >alist [ second = ] with find nip first ;
 
 : string>cpu ( str -- class )
     string>cpu-hash at ;