--- a/ConstantNode.st	Thu Mar 27 14:59:40 2003 +0100
+++ b/ConstantNode.st	Thu Mar 27 16:57:13 2003 +0100
@@ -107,27 +107,27 @@
     "the most common case first ..."
 
     (anObject isMemberOf:SmallInteger) ifTrue:[
-	^ #Integer
+        ^ #Integer
     ].
 
     anObject isNil ifTrue:[
-	^ #Nil
+        ^ #Nil
     ].
 
     anObject isNumber ifTrue:[
-	"the most common case first ..."
-	(anObject isMemberOf:Float) ifTrue:[
-	    ^ #Float
-	].
-	anObject isInteger ifTrue:[
-	    ^ #Integer
-	].
+        "the most common case first ..."
+        (anObject isMemberOf:Float) ifTrue:[
+            ^ #Float
+        ].
+        anObject isInteger ifTrue:[
+            ^ #Integer
+        ].
     ].
     (anObject == true) ifTrue:[
-	^ #True
+        ^ #True
     ].
     (anObject == false) ifTrue:[
-	^ #False
+        ^ #False
     ].
     ^ #Literal
 ! !
@@ -329,5 +329,5 @@
 !ConstantNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.30 2002-11-26 10:47:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.31 2003-03-27 15:56:02 cg Exp $'
 ! !