diff --git a/uiop/utility.lisp b/uiop/utility.lisp
index fd39047c528248b6b9e2a780c32d454c8e1212b9..0b94273a2933637bcb3f14cb7c16e4362dfe100c 100644
--- a/uiop/utility.lisp
+++ b/uiop/utility.lisp
@@ -104,7 +104,7 @@ to supersede any previous definition."
 ;;; Flow control
 (with-upgradability ()
   (defmacro nest (&rest things)
-    "Macro to do keep code nesting and indentation under control." ;; Thanks to mbaringer
+    "Macro to keep code nesting and indentation under control." ;; Thanks to mbaringer
     (reduce #'(lambda (outer inner) `(,@outer ,inner))
             things :from-end t))