[Chicken-users] Spiffy SSL Connection handshake error

[Vok Vojwo]

I got the following error while trying to use Spiffy with SSL:

primordial: Connection handshake error: "argument is not a port"

This is my simple test program:

#! /usr/local/bin/csi -s

(use spiffy openssl)

(server-port 8000)
(access-log (current-error-port))
(debug-log (current-error-port))

(let ((listener (ssl-listen (server-port))))
  (ssl-load-certificate-chain! listener "server.crt")
  (ssl-load-private-key! listener "server.key")
  (accept-loop listener ssl-accept))

#|
(let ((listener (tcp-listen (server-port))))
  (accept-loop listener tcp-accept))
|#

The TCP version works fine. I created the key and certificates with
the following Makefile:

all: server.key server.crt

clean:
        -rm server.key server.csr server.crt

server.key:
        openssl genrsa -out $@ 1024

server.csr: server.key
        openssl req -new -batch \
                -key $< -out $@ \
                -subj /CN=`hostname -f`

server.crt: server.csr server.key
        openssl x509 -req -days 365 \
                -in $(filter %.csr,$^) \
                -signkey $(filter %.key,$^) \
                -out $@

Does anybody know who generates the error message? It does not seem to
be an exception. I have no idea where I should look for the error.