diff --git a/Text/XHtml/BlockTable.hs b/Text/XHtml/BlockTable.hs
--- a/Text/XHtml/BlockTable.hs
+++ b/Text/XHtml/BlockTable.hs
@@ -92,7 +92,7 @@
 -- to show boxes aka the above ascii renditions.
 
 instance (Show a) => Show (BlockTable a) where
-      showsPrec p = showsTable
+      showsPrec _ = showsTable
 
 type TableI a = [[(a,(Int,Int))]] -> [[(a,(Int,Int))]]
 
diff --git a/Text/XHtml/Internals.hs b/Text/XHtml/Internals.hs
--- a/Text/XHtml/Internals.hs
+++ b/Text/XHtml/Internals.hs
@@ -186,6 +186,9 @@
 -- * Html Rendering
 --
 
+mkHtml :: HTML html => html -> Html
+mkHtml = (tag "html" ! [strAttr "xmlns" "http://www.w3.org/1999/xhtml"] <<)
+
 -- | Output the HTML without adding newlines or spaces within the markup.
 --   This should be the most time and space efficient way to
 --   render HTML, though the ouput is quite unreadable.
@@ -193,7 +196,7 @@
                     String -- ^ DOCTYPE declaration
                  -> html -> String
 showHtmlInternal docType theHtml = 
-    docType ++ showHtmlFragment (tag "html" << theHtml)
+    docType ++ showHtmlFragment (mkHtml theHtml)
 
 -- | Outputs indented HTML. Because space matters in
 --   HTML, the output is quite messy.
@@ -201,7 +204,7 @@
                       String  -- ^ DOCTYPE declaration
                    -> html -> String
 renderHtmlInternal docType theHtml =
-      docType ++ "\n" ++ renderHtmlFragment (tag "html" << theHtml) ++ "\n"
+      docType ++ "\n" ++ renderHtmlFragment (mkHtml theHtml) ++ "\n"
 
 -- | Outputs indented HTML, with indentation inside elements.
 --   This can change the meaning of the HTML document, and 
@@ -212,7 +215,7 @@
                       String -- ^ DOCTYPE declaration
                    -> html -> String
 prettyHtmlInternal docType theHtml = 
-    docType ++ "\n" ++ prettyHtmlFragment (tag "html" << theHtml)
+    docType ++ "\n" ++ prettyHtmlFragment (mkHtml theHtml)
 
 -- | Render a piece of HTML without adding a DOCTYPE declaration
 --   or root element. Does not add any extra whitespace.
diff --git a/Text/XHtml/Transitional.hs b/Text/XHtml/Transitional.hs
--- a/Text/XHtml/Transitional.hs
+++ b/Text/XHtml/Transitional.hs
diff --git a/xhtml.cabal b/xhtml.cabal
--- a/xhtml.cabal
+++ b/xhtml.cabal
@@ -1,5 +1,5 @@
 Name: xhtml
-Version: 3000.0.0
+Version: 3000.0.1
 Copyright: Bjorn Bringert 2004-2006, Andy Gill, and the Oregon Graduate 
            Institute of Science and Technology, 1999-2001
 Maintainer: bjorn@bringert.net