diff --git a/basis/db/tuples/tuples.factor b/basis/db/tuples/tuples.factor index 7a8d6e5674..76bba72dbe 100644 --- a/basis/db/tuples/tuples.factor +++ b/basis/db/tuples/tuples.factor @@ -154,5 +154,4 @@ ERROR: no-defined-persistent object ; : count-tuples ( query/tuple -- n ) >query [ tuple>> ] [ ] bi do-count - dup length 1 = - [ first first string>number ] [ [ first string>number ] map ] if ; + [ first string>number ] map dup length 1 = [ first ] when ;