diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -55,4 +55,8 @@
 
 * Fourth version revised A. Some minor changes to documentation.
 
+## 0.4.1.0 -- 2019-11-09
+
+* Fourth version revised B. Changed the names for unsafe functions.
+
 
diff --git a/Data/List/InnToOut/Unsafe.hs b/Data/List/InnToOut/Unsafe.hs
--- a/Data/List/InnToOut/Unsafe.hs
+++ b/Data/List/InnToOut/Unsafe.hs
@@ -11,34 +11,34 @@
 module Data.List.InnToOut.Unsafe 
   (
     -- * Operations to obtain intermediate Monads. Like the 'unsafePerformIO' function they can have unpredictable behaviour. Use them ONLY if you surely know what you are doing.
-       mapI22M
-       , mapI2M2
-       , mapI2M2M   
-       , mapI12M
-       , mapI2M1
+       unsafeMapI22M
+       ,unsafeMapI2M2
+       ,unsafeMapI2M2M   
+       ,unsafeMapI12M
+       ,unsafeMapI2M1
   ) where
 
--- | Variant of the function 'Data.List.InnToOut.mapI22' in which the second intermediate result @c@ is in the @Monad m@.
-mapI22M :: Monad m => (a -> Bool) -> (a -> b) -> (b -> d) -> (a -> m c) -> (m c -> d) -> [a] -> [d]
-mapI22M p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
-{-#INLINE mapI22M#-}
+-- | Variant of the function 'Data.List.InnToOut.Basic.mapI22' in which the second intermediate result @c@ is in the @Monad m@.
+unsafeMapI22M :: Monad m => (a -> Bool) -> (a -> b) -> (b -> d) -> (a -> m c) -> (m c -> d) -> [a] -> [d]
+unsafeMapI22M p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
+{-#INLINE unsafeMapI22M#-}
 
--- | Variant of the function 'Data.List.InnToOut.mapI22' in which the first intermediate result @b@ is in the @Monad m@.
-mapI2M2 :: Monad m => (a -> Bool) -> (a -> m b) -> (m b -> d) -> (a -> c) -> (c -> d) -> [a] -> [d]
-mapI2M2 p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
-{-#INLINE mapI2M2#-}
+-- | Variant of the function 'Data.List.InnToOut.Basic.mapI22' in which the first intermediate result @b@ is in the @Monad m@.
+unsafeMapI2M2 :: Monad m => (a -> Bool) -> (a -> m b) -> (m b -> d) -> (a -> c) -> (c -> d) -> [a] -> [d]
+unsafeMapI2M2 p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
+{-#INLINE unsafeMapI2M2#-}
 
--- | Variant of the function 'Data.List.InnToOut.mapI22' in which both the intermediate results @b@ and @c@ are in the Monads.
-mapI2M2M :: (Monad m0, Monad m) => (a -> Bool) -> (a -> m0 b) -> (m0 b -> d) -> (a -> m c) -> (m c -> d) -> [a] -> [d]
-mapI2M2M p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
-{-#INLINE mapI2M2M#-}
+-- | Variant of the function 'Data.List.InnToOut.Basic.mapI22' in which both the intermediate results @b@ and @c@ are in the Monads.
+unsafeMapI2M2M :: (Monad m0, Monad m) => (a -> Bool) -> (a -> m0 b) -> (m0 b -> d) -> (a -> m c) -> (m c -> d) -> [a] -> [d]
+unsafeMapI2M2M p f1 g f2 h = map (\x -> if p x then g (f1 x) else h (f2 x)) 
+{-#INLINE unsafeMapI2M2M#-}
 
--- | Variant of the function 'Data.List.InnToOut.mapI12' in which the second intermediate result @b@ is in the @Monad m@.
-mapI12M :: Monad m => (a -> Bool) -> (a -> c) -> (a -> m b) -> (m b -> c) -> [a] -> [c]
-mapI12M p f g h = map (\x -> if p x then f x else h (g x)) 
-{-#INLINE mapI12M#-}
+-- | Variant of the function 'Data.List.InnToOut.Basic.mapI12' in which the second intermediate result @b@ is in the @Monad m@.
+unsafeMapI12M :: Monad m => (a -> Bool) -> (a -> c) -> (a -> m b) -> (m b -> c) -> [a] -> [c]
+unsafeMapI12M p f g h = map (\x -> if p x then f x else h (g x)) 
+{-#INLINE unsafeMapI12M#-}
 
--- | Variant of the function 'Data.List.InnToOut.mapI21' in which the first intermediate result @b@ is in the @Monad m@.
-mapI2M1 :: Monad m => (a -> Bool) -> (a -> m b) -> (m b -> c) -> (a -> c) -> [a] -> [c]
-mapI2M1 p f g h = map (\x -> if p x then g (f x) else h x) 
-{-#INLINE mapI2M1#-}
+-- | Variant of the function 'Data.List.InnToOut.Basic.mapI21' in which the first intermediate result @b@ is in the @Monad m@.
+unsafeMapI2M1 :: Monad m => (a -> Bool) -> (a -> m b) -> (m b -> c) -> (a -> c) -> [a] -> [c]
+unsafeMapI2M1 p f g h = map (\x -> if p x then g (f x) else h x) 
+{-#INLINE unsafeMapI2M1#-}
diff --git a/mmsyn5.cabal b/mmsyn5.cabal
--- a/mmsyn5.cabal
+++ b/mmsyn5.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                mmsyn5
-version:             0.4.0.1
+version:             0.4.1.0
 synopsis:            Various additional operations on lists (some with intermediate Monads)
 description:         A small library to deal with a little bit more complex operations on lists than Data.List module
 homepage:            http://hackage.haskell.org/package/mmsyn5