diff --git a/html-test/Main.hs b/html-test/Main.hs
index 02a86d431ce48dd75bf8280802ebc9b6208f6ec2..67dbeec6a70120e65d358fda8871adb78de06a72 100755
--- a/html-test/Main.hs
+++ b/html-test/Main.hs
@@ -2,6 +2,7 @@
 
 
 import Data.Char
+import Data.Function (on)
 
 import System.Environment
 import System.FilePath
@@ -15,7 +16,7 @@ checkConfig = CheckConfig
     { ccfgRead = parseXml
     , ccfgClean = stripIfRequired
     , ccfgDump = dumpXml
-    , ccfgEqual = (==)
+    , ccfgEqual = (==) `on` dumpXml
     }
 
 
diff --git a/hypsrc-test/Main.hs b/hypsrc-test/Main.hs
index 01cc5429219fdda02709208a01b94e655089d442..d3ab79a88863ac48291ec5e81c7ccd7668374cb2 100644
--- a/hypsrc-test/Main.hs
+++ b/hypsrc-test/Main.hs
@@ -3,6 +3,7 @@
 
 import Data.Char
 import Data.List
+import Data.Function (on)
 
 import System.Environment
 import System.FilePath
@@ -16,7 +17,7 @@ checkConfig = CheckConfig
     { ccfgRead = parseXml
     , ccfgClean = \_ -> strip
     , ccfgDump = dumpXml
-    , ccfgEqual = (==)
+    , ccfgEqual = (==) `on` dumpXml
     }
   where
     strip = stripAnchors' . stripLinks' . stripFooter