Use full path name to locate .prj file

cpm/CpmLogic.icl

@@ -69,7 +69,7 @@ getLine world
   # (_, world)        = fclose console world
   = (line, world)
 
-
+import StdDebug
 /**
  * Execute project-specific actions
  */
@@ -80,7 +80,8 @@ doProjectAction cleanhome pwd  pn  CreateProject world
   | not exists //       = error ("Main module " +++ mainmodule +++ " does not exist.") world
     # world         = showLines ["Main module " +++ mainmodule +++ " does not exist. Create it? [y/n]"] world
     # (line, world) = getLine world
-    = if (line.[0] == 'y') (mkMainAndProject world) (error ("Failed to create project. Need " +++ mainmodule) world)
+    | line.[0] == 'y' = mkMainAndProject world
+    | otherwise       = error ("Failed to create project. Need " +++ mainmodule) world
   | otherwise       = mkProject world
   where
   basefilename = dropExtension pn
@@ -113,7 +114,7 @@ doProjectAction cleanhome pwd  pn  ShowProject world
 
 doProjectAction cleanhome pwd  pn  (BuildProject force ideenvs) world
   # (envs, world)            = readIDEEnvs cleanhome ideenvs world
-  # proj_path                = GetLongPathName pn
+  # proj_path                = GetLongPathName (pwd </> pn)
   # ((proj, ok, err), world) = accFiles (ReadProjectFile proj_path cleanhome) world
   | not ok || err <> ""      = error ("CPM failed while opening project: " +++ err +++ "\n") world
   # (console, world)         = stdio world