diff --git a/QuickAnnotate.cabal b/QuickAnnotate.cabal
--- a/QuickAnnotate.cabal
+++ b/QuickAnnotate.cabal
@@ -1,5 +1,5 @@
 Name:                QuickAnnotate
-Version:             0.2
+Version:             0.3
 Synopsis:            Annotation Framework
 Homepage:            http://code.haskell.org/QuickAnnotate/
 License:             BSD3 
diff --git a/QuickAnnotate/Preprocessor.hs b/QuickAnnotate/Preprocessor.hs
--- a/QuickAnnotate/Preprocessor.hs
+++ b/QuickAnnotate/Preprocessor.hs
@@ -2,7 +2,7 @@
 
 import Language.Haskell.Exts
 import System.Environment (getArgs)
-
+import Data.List
 
 annotationFunction :: String
 annotationFunction = "annotate"
@@ -44,8 +44,20 @@
  
 transModule :: Module -> Module
 transModule (Module srcLoc moduleName modulePragmas mWarningText mExportSpecs importDecls decs) 
-  = Module srcLoc moduleName modulePragmas mWarningText mExportSpecs importDecls (transDecl `map` decs)
+  = Module srcLoc moduleName modulePragmas mWarningText mExportSpecs (transImportDecls importDecls) (transDecl `map` decs)
 
+transImportDecls :: [ImportDecl] -> [ImportDecl]
+transImportDecls lst 
+  | Nothing <- find (\x-> let (ModuleName n)  =  (importModule x)  in (n == "QuickAnnotate")) lst 
+  =  (ImportDecl {importLoc = SrcLoc {srcFilename = "<unknown>.hs", srcLine = 1, srcColumn = 1}, 
+                 importModule = ModuleName "QuickAnnotate", 
+                 importQualified = False, 
+                 importSrc = False, 
+                 importPkg = Nothing, 
+                 importAs = Nothing, 
+                 importSpecs = Nothing}): lst
+transImportDecls lst = lst
+  
 transDecl :: Decl -> Decl         
 transDecl (FunBind mtchs) = FunBind  (transMatch`map`mtchs)
 transDecl (PatBind srcLoc pat mtype rhs binds) = PatBind srcLoc pat mtype (transRhs srcLoc rhs) binds