--- a/IRTranslator.st	Wed Mar 24 07:50:55 2010 +0000
+++ b/IRTranslator.st	Fri Apr 09 13:11:14 2010 +0000
@@ -167,10 +167,11 @@
         kind == #BArg ifTrue:[^gen pushBlockArg: index].
         kind == #BVar ifTrue:[^gen pushBlockVar: index].
 
-        self halt:'Should never be reached'.
+        self error:'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