<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
                                        Hi Nicolas.<div><br></div><div>See Monticello-mt.735 :-)</div><div><br></div><div>I think that this is just old code. Maybe MCVersionInfo was reused in that way before MCWorkingAncestry got added.</div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
                        <p style='color: #AAAAAA; margin-top: 10px;'>Am 05.01.2021 13:17:33 schrieb Nicolas Cellier <nicolas.cellier.aka.nice@gmail.com>:</p><div style='font-family:Arial,Helvetica,sans-serif'>
<div dir="auto"><div>+1, that works.<div dir="auto">However, some other (sub)instance may pretend being a working copy ancestry, see MCVersionInfo>>name...</div><div dir="auto">A great source of head scratching ;)</div><br><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">Le mar. 5 janv. 2021 à 13:09,  <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> a écrit :<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">A new version of Monticello was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Monticello-mt.734.mcz" rel="noreferrer noreferrer" target="_blank">http://source.squeak.org/inbox/Monticello-mt.734.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Monticello-mt.734<br>
Author: mt<br>
Time: 5 January 2021, 1:09:08.981865 pm<br>
UUID: 93fdf435-68a1-4ace-a7a9-d9d86fb3118f<br>
Ancestors: Monticello-mt.733<br>
<br>
Alternative fix for the problem addressed in Monticello-nice.734<br>
<br>
=============== Diff against Monticello-mt.733 ===============<br>
<br>
Item was added:<br>
+ ----- Method: MCAncestry>>isWorkingAncestry (in category 'testing') -----<br>
+ isWorkingAncestry<br>
+       ^ false!<br>
<br>
Item was added:<br>
+ ----- Method: MCVersionHistoryBrowser>>package (in category 'accessing') -----<br>
+ package<br>
+       ^ package!<br>
<br>
Item was changed:<br>
  ----- Method: MCVersionHistoryBrowser>>selectedSnapshot (in category 'accessing') -----<br>
  selectedSnapshot<br>
+       ^ self selectedInfo isWorkingAncestry<br>
+               ifTrue: [self package snapshot]<br>
+               ifFalse: [self snapshotForInfo: self selectedInfo]!<br>
-       ^ self snapshotForInfo: self selectedInfo!<br>
<br>
Item was added:<br>
+ ----- Method: MCWorkingAncestry>>isWorkingAncestry (in category 'testing') -----<br>
+ isWorkingAncestry<br>
+       ^ true!<br>
<br>
<br>
</blockquote></div></div></div>
</div></blockquote>
                                        </div></body>