--- a/MCWorkingAncestry.st	Mon Sep 07 15:37:41 2015 +0100
+++ b/MCWorkingAncestry.st	Mon Sep 07 16:13:08 2015 +0100
@@ -1,5 +1,7 @@
 "{ Package: 'stx:goodies/monticello' }"
 
+"{ NameSpace: Smalltalk }"
+
 MCAncestry subclass:#MCWorkingAncestry
 	instanceVariableNames:''
 	classVariableNames:''
@@ -11,6 +13,12 @@
 !
 
 
+!MCWorkingAncestry methodsFor:'accessing'!
+
+ancestors:aCollection
+    ancestors := aCollection.
+! !
+
 !MCWorkingAncestry methodsFor:'as yet unclassified'!
 
 addAncestor: aNode
@@ -53,3 +61,4 @@
 version
     ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWorkingAncestry.st,v 1.3 2012-09-11 21:31:23 cg Exp $'
 ! !
+