diff --git a/compiler/simplCore/SetLevels.lhs b/compiler/simplCore/SetLevels.lhs
index ad5b119137c2d6d47cbfa247fcd04472f5f3e81a..0ed408a022677473c4f8023bdaad2b1f1d6246d8 100644
--- a/compiler/simplCore/SetLevels.lhs
+++ b/compiler/simplCore/SetLevels.lhs
@@ -1,4 +1,3 @@
-
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
 \section{SetLevels}
@@ -42,6 +41,7 @@
   the scrutinee of the case, and we can inline it.  
 
 \begin{code}
+{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE CPP #-}
 {-# OPTIONS_GHC -fno-warn-tabs #-}
 -- The above warning supression flag is a temporary kludge.