diff --git a/uiop/utility.lisp b/uiop/utility.lisp
index 9fed3134a56aa0d185e9761ac9f3d613cf84e415..c62803dd5f2100c42c3e4ce59dae5e641f0ea9d6 100644
--- a/uiop/utility.lisp
+++ b/uiop/utility.lisp
@@ -12,7 +12,7 @@
    #+ecl #:use-ecl-byte-compiler-p #+mcl #:probe-posix)
   (:export
    ;; magic helper to define debugging functions:
-   #:uiop-debug #:load-uiop-debug-utility #:*uiop-debug-utility*
+   #:uiop-debug #:load-uiop-debug-utility #:*uiop-debug-utility* #:DBG
    #:with-upgradability ;; (un)defining functions in an upgrade-friendly way
    #:undefine-function #:undefine-functions #:defun* #:defgeneric*
    #:nest #:if-let ;; basic flow control
@@ -113,7 +113,7 @@
           (if file (load file)
               (error "Failed to locate debug utility file: ~S" utility-file))))))
 
-  (defmacro :DBG (tag &rest exprs) ;; NB: universally accessible in the KEYWORD package
+  (defmacro DBG (tag &rest exprs) ;; NB: universally accessible in the KEYWORD package
     "debug macro for print-debugging from UIOP:
 TAG is typically a constant string or keyword to identify who is printing,
 but can be an arbitrary expression returning a tag to be princ'ed first;