--- a/ParserTests.st	Thu Sep 04 13:14:13 2014 +0200
+++ b/ParserTests.st	Thu Sep 04 13:39:41 2014 +0200
@@ -1464,16 +1464,17 @@
     self assert:(annotation at:1) = 'primitive:'.
     arguments := annotation at:2.
     self deny:arguments isNil.
-    self assert:arguments size = 1.
-    self assert:(arguments at:1) = 'test'.
+    self assert:arguments = 'test'.
 
     "
      The named primitive specifies identifier value used to look up logic which is processed
      before setting up a stack frame for the method to make it run. The example structure
      of named primitive annotation is following:
         <primitive: test>"
+
     "Created: / 29-11-2009 / 09:34:05 / pp <Pavel.Pospichal@gmail.com>"
     "Modified: / 07-12-2009 / 01:29:29 / pp <Pavel.Pospichal@gmail.com>"
+    "Modified: / 04-09-2014 / 12:36:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testSt80Primitive
@@ -1496,16 +1497,17 @@
     self assert:(annotation at:1) = 'primitive:'.
     arguments := annotation at:2.
     self deny:arguments isNil.
-    self assert:arguments size = 1.
-    self assert:(arguments at:1) = 1.
+    self assert:arguments = 1.
 
     "
      The numbered primitive specifies index value used to look up logic which is processed
      before setting up a stack frame for the method to make it run. The example structure
      of numbered primitive annotation is following:
         <primitive: 1>"
+
     "Created: / 29-11-2009 / 09:33:18 / pp <Pavel.Pospichal@gmail.com>"
     "Modified: / 07-12-2009 / 01:20:27 / pp <Pavel.Pospichal@gmail.com>"
+    "Modified: / 04-09-2014 / 12:36:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testVAgePrimitive
@@ -1528,16 +1530,17 @@
     self assert:(annotation at:1) = 'primitive:'.
     arguments := annotation at:2.
     self deny:arguments isNil.
-    self assert:arguments size = 1.
-    self assert:(arguments at:1) = #test.
+    self assert:arguments  = #test.
 
     "
      The named primitive specifies identifier value used to look up logic which is processed
      before setting up a stack frame for the method to make it run. The example structure
      of named primitive annotation is following:
         <primitive: test>"
+
     "Created: / 29-11-2009 / 09:34:59 / pp <Pavel.Pospichal@gmail.com>"
     "Modified: / 12-12-2009 / 22:09:48 / pp <Pavel.Pospichal@gmail.com>"
+    "Modified: / 04-09-2014 / 12:37:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ParserTests methodsFor:'tests - resource'!