Hi, I couldn't get latest version from SVN working (rev.177), but this seems to have fixed this:

Index: event.lisp =================================================================== --- event.lisp (revision 177) +++ event.lisp (working copy) @@ -158,7 +158,7 @@ (declare (ignore nick)) (let ((channel (find-channel connection channel))) (setf (visibility channel) - (or (car (assoc chan-visibility + (or (second (assoc chan-visibility '(("=" :public) ("*" :private) ("@" :secret)) :test #'string=)) :unknown))