--- a/Object.st	Fri Nov 24 14:02:53 1995 +0100
+++ b/Object.st	Fri Nov 24 14:03:55 1995 +0100
@@ -43,7 +43,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.72 1995-11-22 15:25:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.73 1995-11-24 13:03:55 cg Exp $'
 !
 
 documentation
@@ -994,8 +994,7 @@
 	    myClass isLongs ifTrue:[
 		(aClass == SmallInteger or:[aClass == LargeInteger]) ifFalse:[^ false].
 	    ] ifFalse:[
-		myClass isFloats ifTrue:[^ aClass == Float].
-		myClass isDoubles ifTrue:[^ aClass == Float].
+		myClass isFloatsOrDoubles ifTrue:[^ aClass == Float].
 		^ aClass == SmallInteger
 	    ]
 	].
@@ -2413,12 +2412,7 @@
 	"
 	^ self subscriptBoundsError:index
     ].
-    (self class isFloats) ifTrue:[
-	anObject isNumber ifTrue:[
-	    ^ self basicAt:index put:(anObject asFloat)
-	]
-    ].
-    (self class isDoubles) ifTrue:[
+    (self class isFloatsOrDoubles) ifTrue:[
 	anObject isNumber ifTrue:[
 	    ^ self basicAt:index put:(anObject asFloat)
 	]