diff --git a/src/RhsCheck.hs b/src/RhsCheck.hs
--- a/src/RhsCheck.hs
+++ b/src/RhsCheck.hs
@@ -1,5 +1,6 @@
 module RhsCheck(checkRhs,checkBlock,checkTy) where
 
+import Data.Maybe (fromMaybe)
 import Language.Haskell.Exts
 import ErrorMessages
 import ConcreteSyntax
@@ -21,8 +22,11 @@
   pos0 = Pos (line pos) 1 (file pos)
   str  = toString pos0 tks
   res  = p mode str
+  bf   = case baseFixities of
+           [] -> Nothing
+           xs -> Just xs
   mode = defaultParseMode { parseFilename = file pos, ignoreLanguagePragmas = False, extensions = exts
-                          , ignoreLinePragmas = False, fixities = baseFixities }
+                          , ignoreLinePragmas = False, fixities = bf }
 
 exts :: [Extension]
 exts = glasgowExts
diff --git a/src/Version.hs b/src/Version.hs
--- a/src/Version.hs
+++ b/src/Version.hs
@@ -1,4 +1,4 @@
 module Version where
 
 banner :: String
-banner = "Attribute Grammar compiler / HUT project. Version 0.9.38.0"
+banner = "Attribute Grammar compiler / HUT project. Version 0.9.38.1"
diff --git a/uuagc.cabal b/uuagc.cabal
--- a/uuagc.cabal
+++ b/uuagc.cabal
@@ -1,7 +1,7 @@
 cabal-version: >=1.2
 build-type: Simple
 name: uuagc
-version: 0.9.38.0
+version: 0.9.38.1
 license: GPL
 license-file: LICENSE
 maintainer: Arie Middelkoop <ariem@cs.uu.nl>
diff --git a/uuagc.cabal-for-ghc-6.6 b/uuagc.cabal-for-ghc-6.6
--- a/uuagc.cabal-for-ghc-6.6
+++ b/uuagc.cabal-for-ghc-6.6
@@ -1,5 +1,5 @@
 name: uuagc
-version: 0.9.38.0
+version: 0.9.38.1
 license: GPL
 license-file: LICENSE
 maintainer: Arie Middelkoop <ariem@cs.uu.nl>