--- reports/tools.el	2016/08/09 04:04:50	1.5
+++ reports/tools.el	2016/08/10 03:37:18	1.6
@@ -11,6 +11,7 @@
   "Convert utf entities to html"
   (interactive)
   (save-excursion
+    (setq case-fold-search nil)
     (beginning-of-buffer)
     (while (search-forward "«" nil t)
     (replace-match "«" nil t))