diff --git a/BioInf/Keys.hs b/BioInf/Keys.hs
--- a/BioInf/Keys.hs
+++ b/BioInf/Keys.hs
@@ -229,7 +229,7 @@
       ] ++ concatMap f xs
 
     | otherwise = concatMap f xs
-    -- | otherwise = error $ show ("unknown features:", inp , SSTree ((i,j),ijExt) () xs)
+    {- xxx| otherwise = error $ show ("unknown features:", inp , SSTree ((i,j),ijExt) () xs) -}
     where
       nI    = pri `vuIndex` i
       nJ    = pri `vuIndex` j
diff --git a/RNAwolf.cabal b/RNAwolf.cabal
--- a/RNAwolf.cabal
+++ b/RNAwolf.cabal
@@ -1,5 +1,5 @@
 name:           RNAwolf
-version:        0.3.0.1
+version:        0.3.0.2
 author:         Christian Hoener zu Siederdissen, Stephan H Bernhart, Peter F Stadler, Ivo L Hofacker
 copyright:      Christian Hoener zu Siederdissen, 2010-2011
 homepage:       http://www.tbi.univie.ac.at/software/rnawolf/
diff --git a/RNAwolfTrain.hs b/RNAwolfTrain.hs
--- a/RNAwolfTrain.hs
+++ b/RNAwolfTrain.hs
@@ -89,7 +89,7 @@
 
 doIteration :: Options -> [TrainingData] -> (P.Params,[Double]) -> Int -> IO (P.Params,[Double])
 doIteration o@Options{..} xs' (!p,rhos) !k = do
-  xs <- return xs' -- shuffle xs'
+  xs <- shuffle xs'
   when (Iteration `elem` verbose) $ do
     putStrLn "\n======================================"
     printf "# INFO iteration: %4d / %4d starting\n"