--- a/Number.st	Sat Jun 21 12:42:57 2003 +0200
+++ b/Number.st	Sat Jun 21 12:44:23 2003 +0200
@@ -491,9 +491,6 @@
         ^ self perform:aSymbol with:(self coerce:aNumber)
     ].
     (myGenerality < otherGenerality) ifTrue:[
-"/        aNumber isInfinite ifTrue: [
-"/            ^ aNumber retryReverseOf:aSymbol with:self
-"/        ].
         ^ (aNumber coerce:self) perform:aSymbol with:aNumber
     ].
     self error:'retry:coercing: oops - same generality'
@@ -1612,5 +1609,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.84 2003-06-21 10:41:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.85 2003-06-21 10:44:23 cg Exp $'
 ! !