anchor.diff:  Returns the GSS cred on success, signals an RPC-AUTH-ERROR on failure."
     (declare (type (vector (unsigned-byte 8)) token))
     (handler-case 
  -      (multiple-value-bind (context response-buffer) (glass:accept-security-context *server-context* token)
  +      (multiple-value-bind (context response-buffer) (glass:accept-security-context *server-credentials* token)
   	(add-gss-context context)
   	(make-gss-init-res :handle (gss-context-handle context)
   			   :token response-buffer))			   
  
positive.code: 		    (equalp handle (gss-context-handle c)))
  		  *gss-contexts*))
  
  (defun gss-init (server-context &key (max-contexts 10))
    "Setup the application server's GSS support."
    (setf *server-context* server-context
  	*gss-contexts* (make-cyclic-buffer max-contexts)))
  
  
  
negative.code: 
  ;; ---------------------------------------
  
  (defvar *server-credentials* nil
    "The application server's GSS context, as returned from GSS-ACQUIRE-CREDENTIALS")
  
  (defvar *gss-contexts* (make-cyclic-buffer 10)
    "List of currently active gss session contexts.")
  