--- a/xquery/trunk/XQuery__InsertIntoCommand.st	Tue Apr 06 17:39:11 2010 +0000
+++ b/xquery/trunk/XQuery__InsertIntoCommand.st	Tue Apr 06 18:09:03 2010 +0000
@@ -27,11 +27,12 @@
     anXQuerySequence do:
         [:seqItem|
         self 
-            assert: ((seqItem type == XQuerySequenceItem typeAttribute and:[foundNonAttribute])) not
+            assert: ((seqItem type == (TypeFactory getType: 'attribute') and:[foundNonAttribute])) not
             description:'An attribute found after non-attribute (see section 2.3.1.)'.
-        foundNonAttribute := (seqItem type == XQuerySequenceItem typeAttribute) not]
+        foundNonAttribute := (seqItem type == (TypeFactory getType: 'attribute')) not]
 
     "Modified: / 21-11-2007 / 11:25:04 / janfrog"
+    "Modified: / 09-05-2009 / 12:11:27 / Jan Kurs <kursj1@fel.cvut.cz>"
 !
 
 checkTargetSequence: anXQuerySequence 
@@ -62,7 +63,7 @@
     importedSourceNodeId := targetNode documentAdaptor 
                 importForeignNode:sourceNode item nodeId
                 adaptor:sourceNode documentAdaptor.
-    (sourceNode type == XQuerySequenceItem typeAttribute) ifTrue:[
+    (sourceNode type == (TypeFactory getType: 'attribute')) ifTrue:[
         targetNode documentAdaptor updInsertAttribute:importedSourceNodeId
             into:targetNode item nodeId
     ] ifFalse:[
@@ -72,10 +73,11 @@
 
     "Created: / 21-11-2007 / 11:29:01 / janfrog"
     "Modified: / 05-12-2007 / 14:26:29 / janfrog"
+    "Modified: / 09-05-2009 / 12:11:34 / Jan Kurs <kursj1@fel.cvut.cz>"
 ! !
 
 !InsertIntoCommand class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__InsertIntoCommand.st,v 1.3 2008-01-02 14:06:39 wrobll1 Exp $'
+version_SVN
+    ^ '$Id$'
 ! !