X-Git-Url: http://nitlanguage.org

diff --git a/src/model/mpackage.nit b/src/model/mpackage.nit
index 1771938..bb6856b 100644
--- a/src/model/mpackage.nit
+++ b/src/model/mpackage.nit
@@ -25,14 +25,16 @@ class MPackage
 	super MConcern
 
 	# The name of the package
-	redef var name: String
+	redef var name
 
 	redef fun full_name do return name
 
 	redef var c_name = name.to_cmangle is lazy
 
 	# The model of the package
-	redef var model: Model
+	redef var model
+
+	redef var location
 
 	# The root of the group tree
 	var root: nullable MGroup = null is writable
@@ -53,8 +55,11 @@ class MPackage
 
 	redef fun mdoc_or_fallback
 	do
+		var mdoc = self.mdoc
 		if mdoc != null then return mdoc
-		return root.mdoc_or_fallback
+		var root = self.root
+		if root != null then return root.mdoc_or_fallback
+		return null
 	end
 end
 
@@ -64,7 +69,9 @@ class MGroup
 
 	# The name of the group
 	# empty name for a default group in a single-module package
-	redef var name: String
+	redef var name
+
+	redef var location
 
 	# The enclosing package
 	var mpackage: MPackage
@@ -94,7 +101,14 @@ class MGroup
 	fun is_root: Bool do return mpackage.root == self
 
 	# The filepath (usually a directory) of the group, if any
-	var filepath: nullable String = null is writable
+	#
+	# safe alias to `location.file.filename`
+	fun filepath: nullable String do
+		var res
+		res = self.location.file
+		if res == null then return null
+		return res.filename
+	end
 
 	init
 	do