purge a bit of legacy & cruft

There's still both around, though..^_^

1 files changed, 2 insertions, 2 deletions

diff --git a/test5.hs b/test5.hs
index ec90299..5a682bd 100644
--- a/test5.hs
+++ b/test5.hs
@@ -83,8 +83,8 @@ cleanup = do
 startup :: IO ()
 startup = do
 
-    setEnv "HOME" =<< getEnv "OLDHOME"
-
+    -- load-env hack
+    maybe (return ()) (setEnv "HOME") =<< lookupEnv "OLDHOME"
 
     hSetEcho stdin False
     hSetBuffering stdin NoBuffering