--- a/ConstantNode.st	Wed Oct 27 00:21:59 1993 +0100
+++ b/ConstantNode.st	Sat Dec 11 02:07:55 1993 +0100
@@ -23,17 +23,19 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.3 1993-10-13 02:41:17 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.4 1993-12-11 01:06:58 claus Exp $
 '!
 
 !ConstantNode class methodsFor:'queries'!
 
 typeOfConstant:anObject
-    (anObject isKindOf:SmallInteger) ifTrue:[
-        ^ #Integer
-    ].
-    (anObject isKindOf:Float) ifTrue:[
-        ^ #Float
+    anObject isNumber ifTrue:[
+        (anObject isKindOf:SmallInteger) ifTrue:[
+            ^ #Integer
+        ].
+        (anObject isKindOf:Float) ifTrue:[
+            ^ #Float
+        ].
     ].
     anObject isNil ifTrue:[
         ^ #Nil