--- a/Project.st	Thu Jan 13 19:40:45 2000 +0100
+++ b/Project.st	Thu Jan 13 19:45:36 2000 +0100
@@ -2340,9 +2340,15 @@
 # subdirectories where targets are to be made:
 SUBDIRS='.
     self prerequisitePackages do:[:aPackageId |
+        |p|
+
         "/ add sub-packages
         (aPackageId startsWith:pkg) ifTrue:[
-            s nextPutAll:(aPackageId copyFrom:pkg size + 2).
+            p := aPackageId copyFrom:pkg size + 1.
+            (p startsWith:$/) ifTrue:[
+                p := p copyFrom:2
+            ].
+            s nextPutAll:p.
             s space.
         ]
     ].
@@ -3528,6 +3534,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.141 2000-01-13 18:40:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.142 2000-01-13 18:45:36 cg Exp $'
 ! !
 Project initialize!