anchor.diff:                 :username username
                  :workstation (machine-instance)
                  :version (make-ntlm-version 6 1 1)
  -               :encrypted-session-key (encrypted-session-key key-exchange-key exported-session-key)))))
  +               :encrypted-session-key (encrypted-session-key key-exchange-key exported-session-key))
  +	      nil)))
   
   
   (defmethod glass:accept-security-context ((creds ntlm-credentials) buffer &key)
  
positive.code:           (pack-negotiate-message *default-flags* 
                                    :workstation (machine-instance)
                                    :domain (ntlm-domain *default-ntlm-values*)
                                    :version (make-ntlm-version 6 1 1))))
  
  (defmethod glass:initialize-security-context ((context ntlm-context) &key buffer)
    ;; we have received a CHALLENGE message, generate an AUTHENTICATE response
  
negative.code:                                     :target-info 
                                      (make-target-info :nb-domain-name (ntlm-domain *default-ntlm-values*)
                                                        :nb-computer-name (machine-instance)
                                                        :timestamp (filetime)))
  	    t)))
  
  
  
  