diff --git a/musicScroll.cabal b/musicScroll.cabal
--- a/musicScroll.cabal
+++ b/musicScroll.cabal
@@ -4,7 +4,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                musicScroll
-version:             0.2.1.0
+version:             0.2.2.0
 synopsis:            Supply your tunes info without leaving your music player. 
 description:         Automatically retrive the lyrics of of your current
                      song on SMPlayer/VLC and update it on each change. See the
diff --git a/src/MusicScroll/UI.hs b/src/MusicScroll/UI.hs
--- a/src/MusicScroll/UI.hs
+++ b/src/MusicScroll/UI.hs
@@ -10,13 +10,11 @@
 import           Control.Exception (throwIO, AsyncException(UserInterrupt))
 import           Control.Monad (forever)
 import           Data.Functor (void)
-import           Data.Maybe (isNothing)
 import           Data.GI.Gtk.Threading (setCurrentThreadAsGUIThread)
 import           Data.Maybe (fromJust)
 import           Data.Text (pack)
 import qualified GI.Gtk as Gtk
 
-import           MusicScroll.TrackInfo (TrackByPath(tpArtist))
 import           MusicScroll.TrackSuplement
 import           MusicScroll.UIEvent
 
@@ -86,7 +84,6 @@
   do shouldMaintainArtistSupl <- Gtk.getToggleButtonActive keepArtistNameCheck
      validGuessArtist <- (/= mempty) <$> Gtk.entryGetText artistSuplementEntry
      case cause of
-       NotOnDB track
-         | isNothing (tpArtist track), shouldMaintainArtistSupl,
-           validGuessArtist -> sendSuplementalInfo ctx suplChan
+       OnlyMissingArtist | shouldMaintainArtistSupl, validGuessArtist ->
+                     sendSuplementalInfo ctx suplChan
        _ -> return ()
diff --git a/src/MusicScroll/UIEvent.hs b/src/MusicScroll/UIEvent.hs
--- a/src/MusicScroll/UIEvent.hs
+++ b/src/MusicScroll/UIEvent.hs
@@ -1,4 +1,4 @@
-{-# language OverloadedStrings, RecordWildCards, BangPatterns #-}
+{-# language OverloadedStrings, RecordWildCards, BangPatterns, PatternSynonyms #-}
 module MusicScroll.UIEvent where
 
 import           Control.Monad (unless)
@@ -15,6 +15,9 @@
              | ErrorOn ErrorCause
 
 data ErrorCause = NotOnDB TrackByPath | NoLyricsOnWeb TrackInfo | ENoSong
+
+pattern OnlyMissingArtist :: ErrorCause
+pattern OnlyMissingArtist <- NotOnDB (TrackByPath {tpArtist = Nothing, tpTitle = Just _})
 
 data AppContext = AppContext
   { mainWindow     :: Gtk.Window