diff --git a/Commands/Ls.hs b/Commands/Ls.hs
--- a/Commands/Ls.hs
+++ b/Commands/Ls.hs
@@ -75,16 +75,19 @@
 
 maybeSaveList section cpath cp args [] = return ()
 maybeSaveList section cpath cp args newids =
-    do debugM section $ "maybeSaveList called: " ++ show args ++ " " ++ show newids
+    do debugM section $ "maybeSaveList called for " ++ section ++ ": " 
+                  ++ show args ++ " " ++ show newids
        maybeSave section cpath cp args theid
     where theid = maximum . map (read::String -> Integer) $ newids
 
 maybeSave section cpath cp args newid =
     case (lookup "s" args, get cp section "lastid") of
-      (Nothing, _) -> return ()
-      (_, Left _) -> saveid
+      (Nothing, _) -> do debugM "maybeSave" "maybeSave: No -s in args"
+                         return ()
+      (_, Left _) -> do debugM "maybeSave" "maybeSave: Will add ID"
+                        saveid
       (_, Right x) ->
-          if (read x) < (newid::Integer)
+          if (read x) > (newid::Integer)
              then return ()
              else saveid
     where saveid = writeCP cpath newcp
diff --git a/twidge.cabal b/twidge.cabal
--- a/twidge.cabal
+++ b/twidge.cabal
@@ -1,5 +1,5 @@
 Name: twidge
-Version: 0.99.0.1
+Version: 0.99.1
 License: GPL
 Maintainer: John Goerzen <jgoerzen@complete.org>
 Author: John Goerzen