--- a/common/SCMAbstractPackageModel.st	Sat Sep 28 15:37:51 2019 +0200
+++ b/common/SCMAbstractPackageModel.st	Tue Dec 17 17:23:42 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
 stx:libscm - a new source code management library for Smalltalk/X
 Copyright (C) 2012-2015 Jan Vrany
@@ -346,11 +348,11 @@
     "Returns the root of this package model hierarchy, i.e., grand-parent which itself has no parent.
      See class documentation for details on parents"
 
-    | p |
+    | p t |
 
     p := self.
-    [ p parent notNil ] whileTrue:[
-        p := p parent.
+    [ (t := p parent) notNil ] whileTrue:[
+        p := t.
     ].
     ^ p