--- a/Tools__HierarchicalPackageFilterList.st	Thu Apr 25 15:11:22 2013 +0200
+++ b/Tools__HierarchicalPackageFilterList.st	Thu Apr 25 15:11:37 2013 +0200
@@ -260,7 +260,7 @@
         package size > 0 ifTrue:[
             "/ find the parent ...
             p := package asCollectionOfSubstringsSeparatedByAny:':/.'.
-            pp := p copyWithoutLast:1.
+            pp := p copyButLast:1.
             l := (pp asStringWith:$/) size.
             parentPackage := package copyTo:l.
 
@@ -300,7 +300,7 @@
 !HierarchicalPackageFilterList::PackageItem class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__HierarchicalPackageFilterList.st,v 1.2 2011-07-03 17:46:47 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.3 2013-04-25 13:11:37 stefan Exp $'
 ! !
 
 !HierarchicalPackageFilterList::PackageItem class methodsFor:'image specs'!
@@ -460,9 +460,10 @@
 !HierarchicalPackageFilterList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.2 2011-07-03 17:46:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__HierarchicalPackageFilterList.st,v 1.3 2013-04-25 13:11:37 stefan Exp $'
 !
 
 version_SVN
     ^ '§Id§'
 ! !
+