anchor.diff:  (defmethod create-ssh-connection (host (hosts-db string) 
   																	&key 
   																	(port 22) 
  -																	(read-timeout 500) 
  -																	(write-timeout 500))
  +																	(read-timeout 5) 
  +																	(write-timeout 5))
   	(let ((new-session nil)
   				(new-socket  nil)
   				(retval      :ERROR-NONE))
  
positive.code: 							(throw-last-error session))
  					(throw-last-error session)))))
  
  (defmacro with-execute ((stdio-stream ssh-connection command)
  												&body body)
  	`(let ((,stdio-stream (execute ,ssh-connection ,command)))
  		 (unwind-protect
  
negative.code: 			(usocket:socket-close (socket ssh))
  			(session-free (session ssh)))))
  
  (defmacro with-ssh-connection (session (&rest connection-args) &body body)
  	`(let ((,session (create-ssh-connection ,@connection-args)))
  		 (unwind-protect
  					(progn
  						,@body)
  			 (destroy-ssh-connection ,session))))
  
  (defmethod ssh-session-key ((ssh ssh-connection))
  	(session-hostkey (session ssh)))
  
  