     over selected-indices>> conjoin ;
 
 : multiple>single ( values -- value/f ? )
-    dup assoc-empty? [ drop f f ] [ keys first t ] if ;
+    dup assoc-empty? [ drop f f ] [ values first t ] if ;
 
 : selected-index ( table -- n )
     selected-indices>> multiple>single drop ;


: (update-selected-indices) ( table -- set )
    [ selection>> value>> dup array? [ 1array ] unless ] keep
    [ find-row-index ] curry map sift unique f like ;

: initial-selected-indices ( table -- set )
    {

M: table model-changed
    nip dup update-selected-indices {
        [ >>selected-indices f >>mouse-index drop ]
        [ multiple>single drop show-row-summary ]
        [ drop update-selected ]
        [ drop relayout ]
    } 2cleave ;
