Index: trunk/Include/Classes/System/Xml/XmlNode.ab
===================================================================
--- trunk/Include/Classes/System/Xml/XmlNode.ab	(revision 454)
+++ trunk/Include/Classes/System/Xml/XmlNode.ab	(revision 455)
@@ -244,15 +244,19 @@
 	*/
 	Virtual Sub RemoveAll()
-		attributes = Nothing
-		childNodes = Nothing
+		If Not ActiveBasic.IsNothing( This.attributes ) Then
+			This.attributes.Clear()
+		End If
+		If Not ActiveBasic.IsNothing( This.childNodes ) Then
+			This.childNodes.Clear()
+		End If
 	End Sub
 
 	/*!
 	@brief	現在のノードのすべての子ノードを削除します。
-	@param	newChild 削除するXmlNode。
+	@param	oldChild 削除するXmlNode。
 	@return	削除されたノード。
 	*/
 	Virtual Function RemoveChild( oldChild As XmlNode ) As XmlNode
-		childNodes = Nothing
+		childNodes.Remove( oldChild )
 	End Function