diff --git a/Etage.cabal b/Etage.cabal
--- a/Etage.cabal
+++ b/Etage.cabal
@@ -1,5 +1,5 @@
 Name:                Etage
-Version:             0.1.9
+Version:             0.1.10
 Synopsis:            A general data-flow framework
 Description:         A general data-flow framework featuring nondeterminism, laziness and neurological pseudo-terminology. It can be
                      used for example for data-flow computations or event propagation networks. It tries hard to aide type checking and to
@@ -20,7 +20,7 @@
 License-file:        LICENSE
 Author:              Mitar Milutinovic
 Maintainer:          mitar.haskell@tnode.com
-Copyright:           (c) 2010-2011 Mitar Milutinovic
+Copyright:           (c) 2010-2012 Mitar Milutinovic
 Category:            Control, AI
 Build-type:          Simple
 Cabal-version:       >= 1.8
diff --git a/lib/Control/Etage/Internals.hs b/lib/Control/Etage/Internals.hs
--- a/lib/Control/Etage/Internals.hs
+++ b/lib/Control/Etage/Internals.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, MultiParamTypeClasses, GADTs, FlexibleInstances, FlexibleContexts, ScopedTypeVariables, TypeSynonymInstances, StandaloneDeriving, DeriveDataTypeable, EmptyDataDecls, NamedFieldPuns #-}
+{-# LANGUAGE TypeFamilies, MultiParamTypeClasses, GADTs, FlexibleInstances, FlexibleContexts, ScopedTypeVariables, TypeSynonymInstances, StandaloneDeriving, DeriveDataTypeable, EmptyDataDecls, NamedFieldPuns, CPP #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
 
 module Control.Etage.Internals (
@@ -129,7 +129,9 @@
 type NeuronDissolved = SampleVar ()
 type NeuronId = ThreadId
 
+#if !(MIN_VERSION_base(4,5,0))
 deriving instance Typeable1 SampleVar
+#endif
 
 instance Show NeuronDissolved where
   show = show . typeOf