diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,8 @@
+2009.8.4
+--------
+
+### Fix for MPS ljust / rjust bug
+
 2009.6.25
 ---------
 
diff --git a/nemesis.cabal b/nemesis.cabal
--- a/nemesis.cabal
+++ b/nemesis.cabal
@@ -1,5 +1,5 @@
 Name:                 nemesis
-Version:              2009.6.25
+Version:              2009.8.4
 Build-type:           Simple
 Synopsis:             a rake like task management tool
 Description:
@@ -18,7 +18,7 @@
 
 library
   ghc-options: -Wall
-  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.6.25
+  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.7.4
   hs-source-dirs: src/
   exposed-modules:  
                       System.Nemesis
diff --git a/src/System/Nemesis.hs b/src/System/Nemesis.hs
--- a/src/System/Nemesis.hs
+++ b/src/System/Nemesis.hs
@@ -38,14 +38,14 @@
 full_name t = (t.name : t.namespace).reverse.join "/"
 
 display_name :: Task -> String
-display_name t = (t.name : t.namespace).reverse.map (rjust 10 ' ') .join " "
+display_name t = (t.name : t.namespace).reverse.map (ljust 10 ' ') .join " "
 
 instance Show Task where
   show x = case x.description of
     Nothing -> title
     Just s -> title ++ s
     where
-      title = x.display_name.rjust 34 ' ' ++ ": "
+      title = x.display_name.ljust 34 ' ' ++ ": "
 
 instance Eq Task where
   a == b = a.name == b.name