--- a/ConstantNode.st	Mon Oct 20 16:52:19 2008 +0200
+++ b/ConstantNode.st	Mon Oct 20 17:10:47 2008 +0200
@@ -233,7 +233,7 @@
 
     "/ kludge for backward compatibility
     aCompiler isNil ifTrue:[
-        self halt.
+        self halt:'strange literal constant'.
         aStream nextPut:#pushLit; nextPut:value.
         ^ self.
     ].
@@ -330,5 +330,5 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.42 2007-03-05 12:34:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.43 2008-10-20 15:10:47 cg Exp $'
 ! !