--- a/xquery/trunk/XQuery__InsertAfterCommand.st	Tue Apr 06 17:39:11 2010 +0000
+++ b/xquery/trunk/XQuery__InsertAfterCommand.st	Tue Apr 06 18:09:03 2010 +0000
@@ -27,11 +27,12 @@
     anXQuerySequence do:
         [:seqItem|
         self 
-            assert: (((seqItem type isSubtypeOf: XQuerySequenceItem typeAttribute) and:[foundNonAttribute])) not
+            assert: (((seqItem type isSubtypeOf: (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: / 05-12-2007 / 21:01:27 / janfrog"
+    "Modified: / 09-05-2009 / 12:08:47 / Jan Kurs <kursj1@fel.cvut.cz>"
 !
 
 checkTargetSequence: anXQuerySequence 
@@ -60,7 +61,7 @@
     importedSourceNodeId := targetNode documentAdaptor 
                 importForeignNode:sourceNode item nodeId
                 adaptor:sourceNode documentAdaptor.
-    (sourceNode type == XQuerySequenceItem typeAttribute) ifFalse:[
+    (sourceNode type == (TypeFactory getType: 'attribute')) ifFalse:[
         targetNode documentAdaptor updInsert:importedSourceNodeId
             after:targetNode nodeId
     ] ifTrue:[
@@ -69,10 +70,11 @@
     ]
 
     "Modified: / 05-12-2007 / 14:26:29 / janfrog"
+    "Modified: / 09-05-2009 / 12:09:07 / Jan Kurs <kursj1@fel.cvut.cz>"
 ! !
 
 !InsertAfterCommand class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/xquery/XQuery__InsertAfterCommand.st,v 1.5 2008-01-02 14:06:24 wrobll1 Exp $'
+version_SVN
+    ^ '$Id$'
 ! !