diff --git a/config.lisp b/config.lisp
index b6d95e8..3db19cf 100644
--- a/config.lisp
+++ b/config.lisp
@@ -51,7 +51,9 @@
              (dotenv-val (if dotenv-data (gethash key dotenv-data))))
         (if env-val
           (setf (gethash sl data) env-val)
-          (setf (gethash sl data) dotenv-val))))))
+          (progn 
+            (setf (uiop:getenv key) dotenv-val)
+            (setf (gethash sl data) dotenv-val)))))))
 
 (defun root (&rest params &key (class 'root) &allow-other-keys)
   (setf *root* (apply #'make-instance class params)))
diff --git a/util/async.lisp b/util/async.lisp
index c77ff9f..71c57a8 100644
--- a/util/async.lisp
+++ b/util/async.lisp
@@ -31,8 +31,7 @@
                 do (funcall handle-message tsk msg)))
         (funcall teardown tsk)
         (data tsk))
-      (setf (status tsk) :done)
-      )))
+      (setf (status tsk) :done))))
 
 ;;;; task class and related functions / methods