Test output for bloom-filter [fail]

Testing time: 1s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
Gloss: (sha512-primitive md5-primitive sha1-primitive)

-- testing Bloom Filter ------------------------------------------------------

    -- testing Words In List, All K ------------------------------------------
    (= 2 (length (receive (optimum-size P N)))) ...................... [ PASS]
Gloss: N = 1693, M = 37383, K = 16, P = 2.47e-05
    Make ............................................................. [ PASS]
    Add Bloom Filter ................................................. [ PASS]
    Exists in Bloom Filter? .......................................... [ PASS]
    False positives .................................................. [ PASS]
Gloss: Calced Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf)
Gloss: Actual Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf)
    (length false-positives) ......................................... [ PASS]
    6 tests completed in 0.303 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Words In List, All K -------------------------------------


    -- testing Words In List, All K ------------------------------------------
    (actual-k mdps) .................................................. [ PASS]
Gloss: K = 25
    (= 3 (length (receive (desired-m P N)))) ......................... [ PASS]
Gloss: N = 1693, M = 38939, K = 16, P = 1.58834489867836e-05
    (= 3 (length (receive (desired-m P N (actual-k mdps))))) ......... [ PASS]
Gloss: N = 1693, M = 40632, K = 25, P = 1.88334537835735e-05
    Make ............................................................. [ PASS]
    Add Bloom Filter ................................................. [ PASS]
    Exists in Bloom Filter? .......................................... [ PASS]
    6 tests completed in 0.187 seconds.
    6 out of 6 (100%) tests passed.
    -- done testing Words In List, All K -------------------------------------


    -- testing Words In List, Optimal K --------------------------------------
    (= 3 (length (receive (desired-m P N)))) ......................... [ PASS]
Gloss: N = 1693, M = 38939, K = 16, P = 1.58834489867836e-05
    Make ............................................................. [ PASS]
    Add Bloom Filter ................................................. [ PASS]
    Exists in Bloom Filter? .......................................... [ PASS]
    False positives .................................................. [ERROR]
        
Error: call of non-procedure: #<unspecified>
    (begin
      (set! false-positives
        (filter (cut bloom-filter-exists? bf <>) other-word-list))
      #t)
Gloss: Calced Palindromic words: ()
Gloss: Actual Palindromic words: (bob elle evil flow harrah hexeh js live map non pam pop radar sj wolf)
    (length false-positives) ......................................... Segmentation fault