diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 56b94738d..8939c9747 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-08-18  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-exp-blocks.el (org-export-blocks-preprocess): Use
+	`indent-code-rigidly' to indent.
+
 	* org-agenda.el (org-agenda-get-restriction-and-command): Remove
 	properties only if MATCH really is a string.
 
diff --git a/lisp/org-exp-blocks.el b/lisp/org-exp-blocks.el
index 6025ce786..8df0ac147 100644
--- a/lisp/org-exp-blocks.el
+++ b/lisp/org-exp-blocks.el
@@ -203,9 +203,8 @@ specified in BLOCKS which default to the value of
                                      ""
                                    (apply func (save-match-data (org-remove-indentation (match-string 4)))
                                           (split-string (match-string 3) " ")))) t t)
-                ;; indent the replaced match
-                (indent-region (match-beginning 0) (match-end 0) indentation)
-                ))
+                ;; indent block
+                (indent-code-rigidly (match-beginning 0) (match-end 0) indentation)))
 	  (setf start (save-match-data (match-end 0))))
 	(mapcar (lambda (type)
 		  (interblock start (point-max) type))