ensure correct project root

Ide/projmen.icl

@@ -204,8 +204,9 @@ pm_new` path projectpath ps
 		lo				= prefs.linkopts	//DefaultLinkOptions
 		ao				= prefs.applopts	//DefApplicationOptions
 		project			= PR_NewProject path eo co go ao Nil lo
-		ps				= appProject (const project) ps
 		ps				= setPath projectpath ps
+		project			= PR_SetRoot path eo co project		// ensure correct root path in project
+		ps				= appProject (const project) ps
 		ps				= pm_set_window_title projectpath ps
 		(tg,ps)			= getTargetName ps
 		ps				= setProjectTarget tg ps