@@ 1,4 1,4 @@ 
-'From Haver7.0 [latest update: #6454] on 26 June 2024 at 7:21:30 pm'!
+'From Haver7.0 [latest update: #6454] on 26 June 2024 at 9:57:32 pm'!
 'Description I provide a (persistent) root for all the office data like:
 
 - ToDo items

          
@@ 6,7 6,7 @@ 
 - Documents
 
 and a lot more.'!
-!provides: 'OfficeRoots' 1 71!
+!provides: 'OfficeRoots' 1 72!
 !requires: 'IdGeneration' 1 2 nil!
 !requires: 'ActionButtons' 1 47 nil!
 !requires: 'ActionBuilder' 1 36 nil!

          
@@ 1601,6 1601,14 @@ recordDescriptionForPlanF: aStore
 		gettersAndSetters: #(
 			(itemsForPlanF itemsFromPlanF:))! !
 
+!(Modules>>#OfficeRoots>>#LinkingOfficeItem) class methodsFor: 'as yet unclassified' stamp: 'KLG 6/26/2024 21:27:51'!
+itemWrapperClassForItem: anItem
+	"Answer the wrapper class for hierarchical list morphs.
+	
+	Make double dispatch possible, but just use my itemWrapperClass."
+
+	^ anItem itemWrapperClass! !
+
 !(Modules>>#OfficeRoots>>#AbstractRootOfficeItem) methodsFor: 'accessing' stamp: 'KLG 6/26/2024 19:08:00'!
 root
 	"Answer the value of root"