diff --git a/contrib/lisp/org-e-html.el b/contrib/lisp/org-e-html.el
index ba1acd513..ecaa5590b 100644
--- a/contrib/lisp/org-e-html.el
+++ b/contrib/lisp/org-e-html.el
@@ -2292,11 +2292,11 @@ the plist used as a communication channel."
 (defun org-e-html-begin-plain-list (type &optional arg1)
   (case type
     (ordered
-     (format "<ol%s>" (if arg1		; FIXME
+     (format "<ol class=\"org-ol\"%s>" (if arg1		; FIXME
 			  (format " start=\"%d\"" arg1)
 			"")))
-    (unordered "<ul>")
-    (descriptive "<dl>")))
+    (unordered "<ul class=\"org-ul\">")
+    (descriptive "<dl class=\"org-dl\">")))
 
 (defun org-e-html-end-plain-list (type)
   (case type
diff --git a/lisp/org-html.el b/lisp/org-html.el
index a6ca2d2a0..5f536a62a 100644
--- a/lisp/org-html.el
+++ b/lisp/org-html.el
@@ -2724,12 +2724,12 @@ the alist of previous items."
 			  count-tmp)))))
 	(when firstp
 	  (org-close-par-maybe)
-	  (insert (format "<%sl>\n" type)))
+	  (insert (format "<%sl class=\"org-%sl\">\n" type type)))
 	(insert (cond
 		 ((equal type "d")
 		  (format "<dt>%s</dt><dd>" desc-tag))
 		 ((and (equal type "o") counter)
-		  (format "<li value=\"%s\">" counter))
+		  (format "<li class=\"org-li-counter\" value=\"%s\">" counter))
 		 (t "<li>")))
 	;; If line had a checkbox, some additional modification is required.
 	(when checkbox