diff --git a/HaXml.cabal b/HaXml.cabal
--- a/HaXml.cabal
+++ b/HaXml.cabal
@@ -1,5 +1,5 @@
 name:		HaXml
-version:	1.25.1
+version:	1.25.2
 license:	LGPL
 license-file:	COPYRIGHT
 author:		Malcolm Wallace <Malcolm.Wallace@me.com>
@@ -76,63 +76,63 @@
   else
     build-depends: base < 2 || >= 3, bytestring
   extensions: CPP, ExistentialQuantification
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   nhc98-options: -K10M
 
 Executable Canonicalise
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: Canonicalise.hs
 
 Executable CanonicaliseLazy
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: CanonicaliseLazy.hs
 
 Executable Xtract
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: Xtract.hs
 
 Executable Validate
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: Validate.hs
 
 Executable MkOneOf
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: MkOneOf.hs
 
 Executable DtdToHaskell
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: DtdToHaskell.hs
 
 Executable XsdToHaskell
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: XsdToHaskell.hs
 
 Executable FpMLToHaskell
   GHC-Options: -Wall
   Extensions:  CPP
   Hs-Source-Dirs: src/tools, src
-  cpp-options: -DVERSION="\"1.25.1\""
+  cpp-options: -DVERSION="\"1.25.2\""
   Main-Is: FpMLToHaskell.hs
   build-depends: directory
 
diff --git a/src/Text/XML/HaXml/Schema/TypeConversion.hs b/src/Text/XML/HaXml/Schema/TypeConversion.hs
--- a/src/Text/XML/HaXml/Schema/TypeConversion.hs
+++ b/src/Text/XML/HaXml/Schema/TypeConversion.hs
@@ -75,10 +75,10 @@
     renameSimple n s@UnionOf{}    = s{ simple_name  = Just n }
 
 
--- * For now, rather than walk the tree, giving typenames to nodes that were
---   previously locally-typed, we will instead assume in the pretty-printer
---   that it can always replace a missing typename with the element name, and
---   have it resolve to something sensible.
+    -- * For now, rather than walk the tree, giving typenames to nodes that were
+    --   previously locally-typed, we will instead assume in the pretty-printer
+    --   that it can always replace a missing typename with the element name, and
+    --   have it resolve to something sensible.
     renameLocals :: SchemaItem -> SchemaItem
     renameLocals s = s
 --  renameLocals (SchemaElement e)