color-table: case insensitive sort

diff --git a/extra/color-table/color-table.factor b/extra/color-table/color-table.factor
index 6f518eea56046a4ab4bb3a1abb34868cff4caee8..9f451d13a6c9f4f8e43722d619b33fab588519e3 100644 (file)
--- a/extra/color-table/color-table.factor
+++ b/extra/color-table/color-table.factor
@@ -39,7 +39,7 @@ M: color-renderer row-value
     drop named-color ;
 
 : <color-table> ( -- table )
-    named-colors { human<=> } sort-by <model>
+    named-colors { humani<=> } sort-by <model>
     color-renderer
     [ ] <search-table> dup table>>
         5 >>gap