diff --git a/src/parsers/command-sql-block.lisp b/src/parsers/command-sql-block.lisp
index 6aaee6a..dba0a4b 100644
--- a/src/parsers/command-sql-block.lisp
+++ b/src/parsers/command-sql-block.lisp
@@ -66,6 +66,7 @@
                              :section ,section
                              :use-result-as-read t
                              :use-result-as-rows t)
+       (log-message :notice "Executing SQL block for ~a" ,label)
        (with-pgsql-transaction (:pgconn ,pgconn)
 	 (loop for command in ',commands
 	    do