diff --git a/src/plugins/Plugins/MkTemp.hs b/src/plugins/Plugins/MkTemp.hs
index 5d84296..0d337c6 100644
--- a/src/plugins/Plugins/MkTemp.hs
+++ b/src/plugins/Plugins/MkTemp.hs
@@ -97,8 +97,9 @@ gettemp path doopen domkdir slen = do
     --
     -- replace end of template with process id, and rest with randomness
     --
-    ;pid <- liftM show $ do {v <- getProcessID ; return $ abs v} -- getProcessID returns a negative number? why, dunno, but the minus sign screws up Module header names, illegal char.
---    ;pid <- liftM show $ getProcessID
+    ;pid <- liftM show $ abs `fmap` getProcessID 
+    -- getProcessID returns a negative number? why, dunno, but the minus
+    -- sign screws up Module header names, illegal char.
     ;let (rest, xs) = merge tmpl pid
     ;as <- randomise rest
     ;let tmpl' = as ++ xs