metacello-work: GemStone 3.5.2, Metacello package working copies not correct

[dalehenrich]

In Tode, when I look at the packages associated with Metacello project, I get some bogus entries (Metacello ()):

aTDWorkingCopyBrowser
--------------------
BaselineOfMetacello (BaselineOfMetacello-EstebanLorenzano.97)
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
* Metacello ()
Metacello-Base (Metacello-Base-topa.124)
Metacello-Bitbucket (Metacello-Bitbucket-topa.6)
Metacello-Core (Metacello-Core-EstebanLorenzano.832)
Metacello-Cypress (Metacello-Cypress-CyrilFerlicot.8)
Metacello-FileTree (Metacello-FileTree-dkh.36)
Metacello-GitBasedRepository (Metacello-GitBasedRepository-dkh.21)
Metacello-GitHub (Metacello-GitHub-topa.46)
Metacello-GS3x-Platform (Metacello-GS3x-Platform-dkh.1)
Metacello-MC (Metacello-MC-EstebanLorenzano.735)
Metacello-Platform (Metacello-Platform.gemstone-dkh.68)
Metacello-ToolBox (Metacello-ToolBox-EstebanLorenzano.149)

while the list of packages extracted from the baseline is correct:

Inspect anOrderedCollection[225007361]( spec name: 'Metacello-Base', spec 
	name: 'Metacello-Core';
	requires: #('Metacello-Base' );
	includes: #...
--------------------
.            -> anOrderedCollection[225007361]( spec name: 'Metacello-Base', spec name: 'Metacello-Core'; requires: #('Metacello-Base' ); includes: #...
(class)@     -> OrderedCollection
(oop)@       -> 225007361
(committed)@ -> true
(size)@      -> 25
1@           -> spec name: 'Metacello-Base'
2@           -> spec name: 'Metacello-Core'; requires: #('Metacello-Base' ); includes: #('Metacello-MC' 'Metacello-Platform' ).
3@           -> spec name: 'Metacello-MC'; requires: #('Metacello-Core' 'Gofer' ).
4@           -> spec name: 'Metacello-Platform'; requires: #('Metacello-MC' ); includes: #('Metacello-GS3x-Platform' ); file: 'Metacello-Platform.ge...
5@           -> spec name: 'Metacello-ToolBox'; requires: #('Metacello-Base' 'Metacello-Core' ).
6@           -> spec name: 'Metacello-Cypress'; requires: #('Metacello-Core' ).
7@           -> spec name: 'Metacello-Tutorial'; requires: #('Metacello-Core' ).
8@           -> spec name: 'Metacello-TestsCore'; requires: #('Metacello-Core' ).
9@           -> spec name: 'Metacello-TestsMCResources'; requires: #('Metacello-Core' ); includes: #('Metacello-TestsCommonMC' ); postLoadDoIt: #'te...
10@          -> spec name: 'Metacello-TestsCommonMC'; requires: #('Metacello-TestsMCResources' ); file: 'Metacello-TestsCommonMC.common'.
11@          -> spec name: 'Metacello-TestsMCCore'; requires: #('Metacello-Core' 'Metacello-TestsCore' 'Metacello-ToolBox' 'Metacello-TestsMCResources...
12@          -> spec name: 'Metacello-TestsTutorial'; requires: #('Metacello-Tutorial' 'Metacello-TestsMCResources' ).
13@          -> spec name: 'Metacello-GS3x-Platform'; requires: #('Metacello-Platform' ).
14@          -> spec name: 'Metacello-FileTree'; requires: #('Metacello-MC' 'FileTree' ).
15@          -> spec name: 'Metacello-GitBasedRepository'; requires: #('Metacello-MC' 'Metacello-FileTree' ).
16@          -> spec name: 'Metacello-GitHub'; requires: #('Metacello-GitBasedRepository' ).
17@          -> spec name: 'Metacello-Bitbucket'; requires: #('Metacello-GitBasedRepository' ).
18@          -> spec name: 'Metacello-Reference'; requires: #('Metacello-MC' ).
19@          -> spec name: 'Metacello-TestsReference'; requires: #('Metacello-Reference' ).
20@          -> spec name: 'Metacello-TestsMC'; requires: #('Metacello-MC' 'Metacello-ToolBox' 'Metacello-GitHub' 'Metacello-Bitbucket' 'Metacello-Tes...
21@          -> spec name: 'Metacello-TestsMCB'; requires: #('Metacello-TestsMC' ).
22@          -> spec name: 'Metacello-TestsCypress'; requires: #('Metacello-Cypress' 'Metacello-TestsMCB' ).
23@          -> spec name: 'Metacello-TestsMCA'; requires: #('Metacello-TestsMC' ).
24@          -> spec name: 'Metacello-TestsPlatform'; requires: #('Metacello-Platform' ); file: 'Metacello-TestsPlatform.gemstone'.
25@          -> spec name: 'Metacello-GemStone-TestsMCB'; requires: #('Metacello-TestsMCB' ).

Things look correct in 3.4.5 and will need to track back to see where things have broken down ...

[dalehenrich]

a reload of the project seems to clear up the package corruption ...

this does not work ...

[dalehenrich]

because of the way that Monticello is defined, there is no practical way to patch this particular bug ... it has been introduced during the bootstrapping process and the package Monticello.v3 in $GEMSTONE/seaside/monticello/repository/Monticello.v3-dkh.457.mcz in 3.5.3 ... which is part of the 3.5.x release ... so the best bet is to delete the packages. Here's an example using tODE:

mc delete Metacello
mc delete Tonel

Then using the project list, revert the Metacello project to reload ...

[dalehenrich]

This bug will be fixed in 3.5.4 and 3.6.0 ... (above patch will have to be used for 3.5.0, 3.5.1. and 3.5.2)