--- a/Variable.st	Wed Oct 01 18:02:59 2003 +0200
+++ b/Variable.st	Tue Oct 07 15:38:47 2003 +0200
@@ -143,7 +143,7 @@
                 arg1:newDom
                 arg2:(ConstantNode value:name).
     ].
-    self halt.
+    self shouldImplement.
 !
 
 type
@@ -153,5 +153,5 @@
 !Variable class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.18 2003-03-27 22:31:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.19 2003-10-07 13:38:23 stefan Exp $'
 ! !

--- a/VariableNode.st	Wed Oct 01 18:02:59 2003 +0200
+++ b/VariableNode.st	Tue Oct 07 15:38:47 2003 +0200
@@ -474,7 +474,7 @@
     ].
 
     "not reached"
-    self halt:'bad type'.
+    self error:'bad type'.
 
     "Created: / 25.6.1997 / 16:14:17 / cg"
     "Modified: / 17.1.1998 / 04:04:17 / cg"
@@ -921,5 +921,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.60 2003-03-28 14:41:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.61 2003-10-07 13:38:47 stefan Exp $'
 ! !