validate fails

[Simon Marlow]

TH_exn1 is failing on the HEAD at the moment (see below).

=====> TH_exn1(normal)
cd ./th && '/64playpen/simonmar/testing/compiler/stage2/ghc-inplace' 
-no-recomp
-dcore-lint -dcmm-lint -Dx86_64_unknown_linux  -c TH_exn1.hs  -v0 -fth 
-package
template-haskell >TH_exn1.comp.stderr 2>&1
Actual stderr output differs from expected:
--- ./th/TH_exn1.stderr.normalised      2007-10-17 14:35:45.000000000 +0100
+++ ./th/TH_exn1.comp.stderr.normalised 2007-10-17 14:35:45.000000000 +0100
@@ -3,4 +3,7 @@
      Exception when trying to run compile-time code:
        TH_exn1.hs:(9,3)-(10,15): Non-exhaustive patterns in case

-      Code: case reverse "no" of [] -> return (GHC.Base.[])
+      Code: let
+             return = return
+             $dMonad = Language.Haskell.TH.Syntax.$f22
+           in case reverse "no" of [] -> return (GHC.Base.[])