diff --git a/lisp/org-babel-tangle.el b/lisp/org-babel-tangle.el
index c1ed19c9e..7a1bee0f7 100644
--- a/lisp/org-babel-tangle.el
+++ b/lisp/org-babel-tangle.el
@@ -95,7 +95,8 @@ file into their own source-specific files."
                          (to-file (format "%s-%s.%s" base-name (car session-pair) ext) (cdr session-pair)))
                        by-session)
                (to-file (format "%s.%s" base-name ext) (cdr (car by-session)))))))
-       blocks))))
+       blocks)
+      (message "tangled %d source-code blocks" block-counter))))
 
 (defun org-babel-spec-to-string (spec)
   "Insert the source-code specified by SPEC into the current