--- a/lisp/w3/w3-parse.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/w3/w3-parse.el	Mon Aug 13 09:24:17 2007 +0200
@@ -1289,12 +1289,17 @@
                            nil
                            (((li) *include *next))
                            (*retry *next))
+                          ((p)
+                           nil
+                           nil
+                           (*retry *next))
                           ((li)
                            nil
                            ;; Push <LI> before data characters or block
                            ;; elements.
                            ;; Non-SGML.
-                           (((%text %block) li *same error))
+                           (;; ((p) b *same nil)
+                            ((%text %block) li *same error))
                            nil)]))
        ((lh)
         (content-model . [((%text)
@@ -1506,6 +1511,7 @@
                           ((tbody)
                            nil
                            (((tr) tbody *same)
+                            ((td th) tr *same)
                             ;; error handling
                             ((%body.content) tbody *same error))
                            nil)]))