--- a/IRTransformTest.st	Tue Nov 15 21:28:05 2011 +0000
+++ b/IRTransformTest.st	Thu Mar 29 18:03:58 2012 +0000
@@ -60,13 +60,12 @@
         (iRMethod allSequences last) last delete.
 
         (iRMethod allSequences last)
-                        addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)).
+                        addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)}.
 
         aCompiledMethod := iRMethod compiledCode.
         self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
 
     "Modified: / 30-03-2009 / 19:40:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 07-05-2011 / 14:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testAddIntructionsBefore
@@ -83,13 +82,12 @@
         push := (iRMethod allSequences last) at: (iRMethod allSequences size - 1) .
 
         (iRMethod allSequences last)
-                        addInstructions: (Array with:(IRInstruction pushLiteral: 2) with: (IRInstruction returnTop)) before: push.
+                        addInstructions: {(IRInstruction pushLiteral: 2). (IRInstruction returnTop)} before: push.
 
         aCompiledMethod := iRMethod compiledCode.
         self should: [(aCompiledMethod valueWithReceiver: nil arguments: #() ) = 2].
 
     "Modified: / 30-03-2009 / 19:40:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 07-05-2011 / 14:18:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 testAddIntructionsBeforeFromLList
@@ -165,13 +163,13 @@
 !IRTransformTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp $'
+    ^ '$Id$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp $'
+    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTransformTest.st,v 1.3 2009/10/08 11:56:52 fm Exp §'
 !
 
 version_SVN
-    ^ '$Id$'
+    ^ '$Id::                                                                                                                        $'
 ! !