diff --git a/schedevr.cabal b/schedevr.cabal
--- a/schedevr.cabal
+++ b/schedevr.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                schedevr
-version:             0.1.0.2
+version:             0.1.0.3
 synopsis:            Marge schedules and show EVR
 -- description:         
 license:             BSD3
diff --git a/src/mkschd/marge-schedule.hs b/src/mkschd/marge-schedule.hs
--- a/src/mkschd/marge-schedule.hs
+++ b/src/mkschd/marge-schedule.hs
@@ -10,7 +10,7 @@
 main :: IO ()
 main = do
 	d <- localDay . zonedTimeToLocalTime <$> getZonedTime
-	args <- getArgs
+	"-s" : s : args <- getArgs
 	let (ilfps, "--" : fps) = span (/= "--") args
 	tbl <- concat <$> mapM readFile ilfps
 	items <- mapM (fmap parse . readFile) fps
@@ -18,4 +18,4 @@
 --	cnt2 <- readFile "test2.schd"
 --	putStr $ showOutputs $ fromItem2 (read "2014-04-22") (parse cnt1) (parse cnt2)
 	putStr $ showOutputs $ map (convertOutput tbl) $
-		fromItemN (read "2014-04-17") items
+		fromItemN (read s) items