--- a/Tools__HierarchicalPackageFilterList.st	Fri Jul 04 12:28:25 2014 +0200
+++ b/Tools__HierarchicalPackageFilterList.st	Fri Jul 04 12:28:31 2014 +0200
@@ -262,7 +262,7 @@
         package size > 0 ifTrue:[
             "/ find the parent ...
             p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
-            pp := p copyButLast:1.
+            pp := p copyButLast.
             l := (pp asStringWith:$/) size.
             parentPackage := package copyTo:l.
 
@@ -302,7 +302,7 @@
 !HierarchicalPackageFilterList::PackageItem class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
 ! !
 
 !HierarchicalPackageFilterList::PackageItem class methodsFor:'image specs'!
@@ -488,10 +488,10 @@
 !HierarchicalPackageFilterList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__HierarchicalPackageFilterList.st,v 1.6 2014-05-23 08:16:49 stefan Exp $'
+    ^ '$Id: Tools__HierarchicalPackageFilterList.st,v 1.7 2014-07-04 10:28:31 cg Exp $'
 ! !