diff --git a/README.md b/README.md
deleted file mode 100644
--- a/README.md
+++ /dev/null
@@ -1,9 +0,0 @@
-Message Passing Style Haskell Toolkit
-=====================================
-
-Example
---------
-
-### OO (duck) Syntax
-
-    euler_1 = ( [3,6..999] ++ [5,10..999] ).unique.sum
diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,10 @@
+2009.7.15
+---------
+
+### Fix
+
+* ljust / rjust bug
+
 2009.7.2
 ---------
 
diff --git a/known-issues.md b/known-issues.md
new file mode 100644
--- /dev/null
+++ b/known-issues.md
@@ -0,0 +1,1 @@
+* return data in match in MPSUTF are not decoded, i.e. they are in utf-8 encoding
diff --git a/mps.cabal b/mps.cabal
--- a/mps.cabal
+++ b/mps.cabal
@@ -1,17 +1,17 @@
 Name:                 mps
-Version:              2009.7.2
+Version:              2009.7.4
 Build-type:           Simple
-Synopsis:             message passing style helpers
+Synopsis:             OO duck syntax
 Description:          message passing style helpers
 License:              BSD3
 Author:               Wang, Jinjing
 Maintainer:           Wang, Jinjing <nfjinjing@gmail.com>
 Build-Depends:        base
 Cabal-version:        >= 1.2
-data-files:           README.md, changelog.md
 category:             Development
 license-file:         LICENSE
 homepage:             http://github.com/nfjinjing/mps/
+data-files:           readme.md, changelog.md, known-issues.md
 
 library
   ghc-options: -Wall
diff --git a/readme.md b/readme.md
new file mode 100644
--- /dev/null
+++ b/readme.md
@@ -0,0 +1,14 @@
+Message Passing Style Haskell Toolkit
+=====================================
+
+Example
+--------
+
+### OO (duck) Syntax
+
+    euler_1 = ( [3,6..999] ++ [5,10..999] ).unique.sum
+
+Cheatsheet by [Henry Laxen](http://mazatlan.ning.com/profile/henrylaxen)
+-------------------------
+
+[lhs source](master/src/Test/MPSexamples.lhs)
diff --git a/src/MPS/Light.hs b/src/MPS/Light.hs
--- a/src/MPS/Light.hs
+++ b/src/MPS/Light.hs
@@ -149,11 +149,11 @@
 map_with_index f = indexed > map f
 
 ljust, rjust :: Int -> a -> [a] -> [a]
-ljust n x xs 
+rjust n x xs 
   | n < xs.length = xs
   | otherwise     = ( n.times x ++ xs ).reverse.take n.reverse
 
-rjust n x xs
+ljust n x xs
   | n < xs.length = xs
   | otherwise     = ( xs ++ n.times x ).take n
 
@@ -308,7 +308,7 @@
 capitalize (x:xs) = [x].upper ++ xs.lower
 
 to_s :: (Show a) => a -> String
-to_s x = x.show
+to_s = show