diff --git a/contrib/ChangeLog b/contrib/ChangeLog
index e7b059640..28bc2e08f 100644
--- a/contrib/ChangeLog
+++ b/contrib/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-08  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* lisp/org-export-generic.el (org-export-generic): Close body
+	levels.
+
 2009-11-20  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* lisp/org-export-generic.el (org-set-generic-type): Use `aput'.
diff --git a/contrib/lisp/org-export-generic.el b/contrib/lisp/org-export-generic.el
index 90517c008..7b4a30d41 100644
--- a/contrib/lisp/org-export-generic.el
+++ b/contrib/lisp/org-export-generic.el
@@ -949,6 +949,15 @@ underlined headlines.  The default is 3."
 		      (org-export-generic-wrap line bodylinewrap))
 	      (setq line line)))
 	(insert (format bodylineform line)))))
+
+    ;; if we're at a level > 0; insert the closing body level stuff
+    (let ((counter 0))
+      (while (> (- level counter) 0)
+	(insert
+	 (org-export-generic-format export-plist :body-section-suffix 0
+				    (- level counter)))
+	(setq counter (1+ counter))))
+
     (org-export-generic-check-section "bottom")
 
     (org-export-generic-push-links (nreverse link-buffer))