anchor.diff:                         (make-neg-token-resp :state :incomplete
                                               :mech (spnego-creds-oid (spnego-context-creds cxt))
                                               :token resp-buff
  -                                            :mic nil))))))))
  +                                            :mic nil))
  +		 nil))))))
   
   
   (defclass spnego-server-context (spnego-context)
  
positive.code:                      (pack #'encode-nego-token
  			   (make-neg-token-resp :state :incomplete
  						:mech *ntlm-oid*
  						:token ntlm-buffer)))))
            (t 
              (error 'glass:gss-error :major :bad-mech)))))))
  
  
negative.code:                  (pack #'encode-nego-token 
                         (make-neg-token-resp :state :completed
                                              :mech (spnego-creds-oid (spnego-context-creds cxt))
                                              :token resp-buff))
  		 nil)))
        (t 
         ;; Kerberos, just get the ticket and try again
         (multiple-value-bind (krb-context resp-buff) 
  