Resolved merge.

[factor.git] / basis / xml / xml.factor

diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index 9df7165e6cd7da88f48ef0555e9bda6a84c3654a..cca1b5e2e0cf4160f8538a39e59b73b983e4ceab 100755 (executable)
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -11,7 +11,7 @@ IN: xml
 <PRIVATE
 
 : add-child ( object -- )
-    xml-stack get peek second push ;
+    xml-stack get last second push ;
 
 : push-xml ( object -- )
     V{ } clone 2array xml-stack get push ;