diff --git a/HTF.cabal b/HTF.cabal
--- a/HTF.cabal
+++ b/HTF.cabal
@@ -1,5 +1,5 @@
 Name:             HTF
-Version:          0.3
+Version:          0.3.1
 License:          LGPL
 License-File:     LICENSE
 Copyright:        (c) 2005-2010 Stefan Wehr
diff --git a/Test/Framework/HUnitWrapper.hs b/Test/Framework/HUnitWrapper.hs
--- a/Test/Framework/HUnitWrapper.hs
+++ b/Test/Framework/HUnitWrapper.hs
@@ -117,7 +117,7 @@
 assertNotEmpty_ _ (_:_) = return ()
 
 assertEmpty_ :: Location -> [a] -> HU.Assertion
-assertEmpty_ loc (_:_) = assertFailure ("assertNull failed at " ++ showLoc loc)
+assertEmpty_ loc (_:_) = assertFailure ("assertEmpty failed at " ++ showLoc loc)
 assertEmpty_ loc [] = return ()
 
 assertThrows_ :: Exception e => Location -> a -> (e -> Bool) -> HU.Assertion
diff --git a/Test/Framework/HaskellParser.hs b/Test/Framework/HaskellParser.hs
--- a/Test/Framework/HaskellParser.hs
+++ b/Test/Framework/HaskellParser.hs
@@ -54,8 +54,12 @@
       fixedInput :: String
       fixedInput = (input ++ "\n") {- the parser fails if the last line is a
                                       line comment not ending with \n -}
+      {- FIXME: fixities needed for all operators. Heuristic:
+         all operators are considered to be any sequence
+         of the symbols _:"'>!#$%&*+./<=>?@\^|-~ with at most length 8 -}
       parseMode :: Parser.ParseMode
-      parseMode = Parser.defaultParseMode { Parser.parseFilename = originalFileName
+      parseMode = Parser.defaultParseMode { Parser.parseFilename =
+                                              originalFileName
                                           , Parser.extensions =
                                               Ext.glasgowExts ++
                                               [Ext.ExplicitForall]
@@ -66,7 +70,8 @@
                           imports decls) =
           Module moduleName (map transformImport imports)
                             (mapMaybe transformDecl decls)
-      transformImport (Syn.ImportDecl loc (Syn.ModuleName s) qualified _ _ alias _) =
+      transformImport (Syn.ImportDecl loc (Syn.ModuleName s)
+                                      qualified _ _ alias _) =
           let alias' = case alias of
                          Nothing -> Nothing
                          Just (Syn.ModuleName s) -> Just s