diff --git a/lisp/org-exp.el b/lisp/org-exp.el
index 4153554..8762843 100644
--- a/lisp/org-exp.el
+++ b/lisp/org-exp.el
@@ -3102,6 +3102,7 @@ lang=\"%s\" xml:lang=\"%s\">
 		     (string-match "^[ \t]*:\\(.*\\)" line))
 	    (when (not infixed)
 	      (setq infixed t)
+          (org-close-par-maybe)
 	      (insert "<pre class=\"example\">\n"))
 	    (insert (org-html-protect (match-string 1 line)) "\n")
 	    (when (or (not lines)
@@ -3339,6 +3340,7 @@ lang=\"%s\" xml:lang=\"%s\">
 				  head-count)
 	    ;; QUOTES
 	    (when (string-match quote-re line)
+          (org-close-par-maybe)
 	      (insert "<pre>")
 	      (setq inquote t)))

@@ -3449,7 +3451,7 @@ lang=\"%s\" xml:lang=\"%s\">
 	    (insert line "\n")))))

       ;; Properly close all local lists and other lists
-      (when inquote (insert "</pre>\n"))
+      (when inquote (insert "</pre>\n") (org-open-par))
       (when in-local-list
 	;; Close any local lists before inserting a new header line
 	(while local-list-type