@@ -74,7 +74,8 @@

   (let* ((context (net.didierverna.clon:make-context :synopsis *daydreamer-synopsis*))

          (files (clon:remainder :context context))

          (region (clon:getopt :long-name "aws-region"))

-         (aws-sdk:*session* (aws-sdk:make-session :region region)))

+         (aws-sdk:*session* (aws-sdk:make-session :credentials (aws-sdk:default-aws-credentials)

+                                                  :region region)))

     (format *error-output* "~&IN REGION: ~a~%" region)