anchor.diff:  	  
   ;; ---------- for the application server -----------
   
  -(defmethod glass:accept-security-context ((context kerberos-context) buffer &key)
  +(defmethod glass:accept-security-context ((context kerberos-server-context) buffer &key)
     (let ((ap-req (unpack-initial-context-token buffer)))
       (let ((cxt 
  -           (make-instance 'kerberos-context 
  -                          :buffer buffer
  +           (make-instance 'kerberos-server-context 
                             :creds (kerberos-context-creds context)
                             :req (valid-ticket-p (kerberos-context-creds context) ap-req))))
       (setf (kerberos-context-key cxt) 
  
positive.code:   (let* ((req (kerberos-context-req context))
  	 (session-key (subseq (encryption-key-value (kerberos-context-key context))
  			      0 8))
  	 (initiator (kerberos-context-initiator context))
  	 (message (concatenate '(vector (unsigned-byte 8)) message)))
      ;; start by padding the message
      (let* ((len (length message))
  
negative.code:   (let* ((req (kerberos-context-req context))
  	 (session-key (kerberos-context-key context))
  	 (key (subseq (encryption-key-value session-key) 0 8))
  	 (initiator (typep context 'kerberos-client-context))
  	 (message (concatenate '(vector (unsigned-byte 8)) message)))
      (pack-initial-context-token 
       (flexi-streams:with-output-to-sequence (s)
  