--- a/mercurial/HGPackageModelRegistry.st	Mon Dec 03 16:20:11 2012 +0000
+++ b/mercurial/HGPackageModelRegistry.st	Mon Dec 03 17:20:57 2012 +0000
@@ -34,12 +34,12 @@
         i2 := package indexOf: $:.
 
         components add: (package copyFrom: i1 to: i2 - 1).
-        names add (package copyFrom: 1 to: i2 - 1).
+        names add: (package copyFrom: 1 to: i2 - 1).
 
         i1 := i2 + 1.
         [ (i2 := package indexOf: $/ startingAt: i1) ~~ 0 ] whileTrue:[
             components add: (package copyFrom: i1 to: i2 - 1).
-            names add (package copyFrom: 1 to: i2 - 1).
+            names add: (package copyFrom: 1 to: i2 - 1).
             i1 := i2 + 1.        
         ].