--- a/ArithmeticValue.st	Tue Jun 17 11:10:25 2003 +0200
+++ b/ArithmeticValue.st	Tue Jun 17 11:12:22 2003 +0200
@@ -872,10 +872,10 @@
 raisedToInteger:exp 
     "return the receiver raised to exp"
 
-    |result e t 
-    |
+    |result e t|
 
-    "use the addition chaining algorithm"
+    "use the addition chaining algorithm,
+     which is much faster for big exp-arguments"
 
     result := 1.
     t := self.
@@ -1166,7 +1166,7 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.49 2003-06-17 09:10:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.50 2003-06-17 09:11:17 cg Exp $'
 ! !
 
 ArithmeticValue initialize!