diff --git a/packages/AlgernonTests.package/ALGTestGeneral.class/instance/testDynamicItemsNotInForeignChildLists.st b/packages/AlgernonTests.package/ALGTestGeneral.class/instance/testDynamicItemsNotInForeignChildLists.st
new file mode 100644
index 00000000..e31258f8
--- /dev/null
+++ b/packages/AlgernonTests.package/ALGTestGeneral.class/instance/testDynamicItemsNotInForeignChildLists.st
@@ -0,0 +1,14 @@
+testing dynamic items
+testDynamicItemsNotInForeignChildLists
+
+	self runQuery: 'Transcript clear'.
+	self assert: ((self itemMorphs 
+					reject: [:each | each item isNil])
+					anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ]).
+
+	self runQuery: 'Monticello' withCursorAt: 'Package'.
+	self algInstance showChildList.
+
+	self deny: ((self itemMorphs 
+					reject: [:each | each item isNil])
+					anySatisfy: [:each | each item algerType isKindOf: ALGDockingBarType ])
\ No newline at end of file
diff --git a/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json b/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json
index c7c5efd5..b41bade2 100644
--- a/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json
+++ b/packages/AlgernonTests.package/ALGTestGeneral.class/methodProperties.json
@@ -6,6 +6,7 @@
 		"testBreadcrumbsListSize" : "rk 8/5/2020 16:44",
 		"testClassAction" : "b 8/5/2021 15:30",
 		"testCloseWithEscape" : "b 6/2/2021 14:35",
+		"testDynamicItemsNotInForeignChildLists" : "NL 8/5/2021 20:07",
 		"testKeyBindingsValid" : "jRo 8/1/2020 11:19",
 		"testListContents" : "jRo 7/5/2020 22:15",
 		"testMethodAction" : "b 8/5/2021 15:36",