diff --git a/Villefort.cabal b/Villefort.cabal
--- a/Villefort.cabal
+++ b/Villefort.cabal
@@ -1,5 +1,5 @@
 name:                Villefort
-version:             0.1.1.8
+version:             0.1.1.9
 synopsis: Villefort is a task manager and time tracker written in haskell.
 description: Villefort is a browser based time tracker.
 homepage:            https://github.com/Chrisr850/Villefort#readme
diff --git a/src/Villefort/Todo.hs b/src/Villefort/Todo.hs
--- a/src/Villefort/Todo.hs
+++ b/src/Villefort/Todo.hs
@@ -26,7 +26,7 @@
 
 qetTasks'  :: (MonadReader VConfig m, MonadIO m) => m [Row]
 qetTasks' = do
-  x <- makeQuery' "select id, Title, Description, Due, Subject,  sum(time),pred from todo where state=1 group by Due order by Due"
+  x <- makeQuery' "select id, Title, Description, Due, Subject,  sum(time),pred from todo where state=1 group by id order by Due"
   return (map toRow x)
 
 convRow' :: [[SqlValue]] -> [[String]]
@@ -131,8 +131,8 @@
     let sqlId   = read (rawid!! 1) :: Int
     let rawtime = Data.List.Split.splitOn "=" $ (da !! 0)
     let integerTime = read (rawtime !! 1) :: Int
-    if  integerTime /= 0 then
       do updateTask sqlId integerTime -- update task time
+    if  integerTime /= 0 then
          delTask sqlId  -- then remove from database
     else  delTask sqlId -- otherwise just remove from database
     return ()