Fix chisq-test for case when :x is one sample collection

The docstring for chisq has this example
    (chisq-test :x [1 2 3 2 3 2 4 3 5]) ;; X-sq 2.6667
But it didn't work as documented.
This was fixed.