diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,10 @@
+2009.10.7
+---------
+
+### Feature
+
+* allows 3 namespaces to be displayed in menu
+
 2009.8.18
 ---------
 
diff --git a/nemesis.cabal b/nemesis.cabal
--- a/nemesis.cabal
+++ b/nemesis.cabal
@@ -1,5 +1,5 @@
 Name:                 nemesis
-Version:              2009.8.18
+Version:              2009.10.7
 Build-type:           Simple
 Synopsis:             a Rake like task management tool
 Description:          smart per project code snippets
@@ -16,7 +16,7 @@
 
 library
   ghc-options: -Wall
-  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.8.18.1
+  build-depends: base >= 4 && < 5, old-time, time, haskell98, mtl, process, containers, data-default, Glob >= 0.4, mps >= 2009.9.18
   hs-source-dirs: src/
   exposed-modules:  
                       System.Nemesis
diff --git a/readme.md b/readme.md
--- a/readme.md
+++ b/readme.md
@@ -119,7 +119,9 @@
 
     import System.Nemesis (run)
     import System.Nemesis.DSL
-
+    import MPS.Light ((-))
+    import Prelude hiding ((-))
+    
     nemesis = do
       task "i" (sh "ghci -isrc src/System/Nemesis.hs")
         
diff --git a/src/System/Nemesis.hs b/src/System/Nemesis.hs
--- a/src/System/Nemesis.hs
+++ b/src/System/Nemesis.hs
@@ -6,7 +6,7 @@
 import Data.Default
 import Data.List (sort)
 import Data.Map (Map, insert, empty, lookup, elems)
-import Prelude hiding ((.), (>), (^), lookup, (-))
+import Prelude ()
 import System
 import System.Nemesis.Util
 
@@ -45,7 +45,7 @@
     Nothing -> title
     Just s -> title ++ s
     where
-      title = x.display_name.ljust 34 ' ' ++ ": "
+      title = x.display_name.ljust 44 ' ' ++ ": "
 
 instance Eq Task where
   a == b = a.name == b.name
diff --git a/src/System/Nemesis/Runner.hs b/src/System/Nemesis/Runner.hs
--- a/src/System/Nemesis/Runner.hs
+++ b/src/System/Nemesis/Runner.hs
@@ -1,13 +1,14 @@
 import Control.Monad hiding (join)
 import Data.List (find)
 import Data.Time.Clock.POSIX
-import Prelude hiding ((.), (>), (^), (-))
+import Prelude ()
 import System
 import System.Cmd
 import System.Directory
 import System.Nemesis.Util
 import System.Time
 import System.Nemesis.DSL
+import qualified Prelude as P
 
 
 start, end :: String
@@ -37,7 +38,7 @@
         else do
           bin_stamp <- bin.file_mtime
           src_stamp <- get_src_name >>= file_mtime
-          return - bin_stamp < src_stamp
+          return - bin_stamp P.< src_stamp
     
     file_mtime path = 
       getModificationTime path ^ seconds ^ posixSecondsToUTCTime
diff --git a/src/System/Nemesis/Util.hs b/src/System/Nemesis/Util.hs
--- a/src/System/Nemesis/Util.hs
+++ b/src/System/Nemesis/Util.hs
@@ -1,17 +1,16 @@
 {-# LANGUAGE NoMonomorphismRestriction #-}
 
 module System.Nemesis.Util (
-    module MPS.Light
+    module MPS.Env
   , ls
   , rm
   , rm_rf
 ) where
 
 import System.Directory
-import MPS.Light
-import Prelude hiding ((^), (.), (>))
+import MPS.Env hiding (lookup)
+import Prelude ()
 import Data.List ((\\))
-
 
 ls :: String -> IO [String]
 ls s = getDirectoryContents s ^ (\\ [".", ".."])