diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,10 @@
+2009.8.18.1
+-----------
+
+### Fix
+
+* make - behave as $
+
 2009.8.18
 ---------
 
diff --git a/mps.cabal b/mps.cabal
--- a/mps.cabal
+++ b/mps.cabal
@@ -1,5 +1,5 @@
 Name:                 mps
-Version:              2009.8.18
+Version:              2009.8.18.1
 Build-type:           Simple
 Synopsis:             simply oo
 Description:          DSL that allows one to write Haskell from left to right
diff --git a/src/MPS/Extra.hs b/src/MPS/Extra.hs
--- a/src/MPS/Extra.hs
+++ b/src/MPS/Extra.hs
@@ -124,6 +124,18 @@
 format_time :: String -> UTCTime -> String
 format_time = formatTime defaultTimeLocale
 
+simple_time_format :: String
+simple_time_format = "%Y-%m-%d %H:%M:%S %Z"
+
+parse_time :: String -> String -> UTCTime
+parse_time = readTime defaultTimeLocale
+
+t2i :: UTCTime -> Integer
+t2i = utcTimeToPOSIXSeconds > floor
+
+i2t :: Integer -> UTCTime
+i2t = from_i > posixSecondsToUTCTime
+
 -- Text
 filter_comment :: String -> String
 filter_comment = 
diff --git a/src/MPS/Light.hs b/src/MPS/Light.hs
--- a/src/MPS/Light.hs
+++ b/src/MPS/Light.hs
@@ -35,7 +35,7 @@
 {-# INLINE (-) #-}
 (-) :: (a -> b) -> a -> b
 f - x =  f x
-infixl 0 -
+infixr 0 -
 
 (<->) :: (Num a) => a -> a -> a
 (<->) = (Prelude.-)