anchor.diff:      (if expecting
   	(unless (eq code expecting) ;if checking for error
   	    (nntp-error code line)))
  -    (values code line) ;return if ok
  +    (values line code) ;return if ok
   ))
   ;;;
   ;;; Restore server connection and state
  
positive.code: (defun send-command (string &key (expecting nil) (server *server*) (sindex 0) (also nil))
    "send an NNTP command and read response. Return first digit of response and entire response string"
    (let ((command (if also ;; secondary command string
  		     (concatenate 'string " " also)
  		     string)))
      ;;(format t "SENDING [~A]~%" command)
      (handler-case
  	(let ((socket (elt (server-sock server) sindex)))
  	  (format (usocket:socket-stream socket) "~A~C~C" command #\return #\linefeed)
  	  (force-output (usocket:socket-stream socket))
  	  (read-response :expecting expecting :server server :sindex sindex))
  
negative.code: 	       :sock (make-array 1 )
  	       :grp  (make-array 1 :element-type 'string :initial-element "alt.autos.camaro")))
  
  (defmacro socket (&optional (server *server*) (sindex 0))
    `(elt (server-sock ,server) ,sindex))
  
  (define-condition nntp-error (error)
    ((message
  