--- a/IRTranslator.st	Tue Nov 15 21:28:05 2011 +0000
+++ b/IRTranslator.st	Thu Mar 29 18:03:58 2012 +0000
@@ -167,11 +167,10 @@
         kind == #BArg ifTrue:[^gen pushBlockArg: index].
         kind == #BVar ifTrue:[^gen pushBlockVar: index].
 
-        self error:'Should never be reached'.
+        self halt:'Should never be reached'.
 
     "Created: / 30-03-2009 / 14:06:28 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 30-03-2009 / 19:02:32 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 09-04-2010 / 15:05:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 remoteReturn
@@ -372,13 +371,13 @@
 !IRTranslator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp $'
+    ^ '$Id$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp $'
+    ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp §'
 !
 
 version_SVN
-    ^ '$Id$'
+    ^ '$Id::                                                                                                                        $'
 ! !