--- a/ArithmeticValue.st	Tue Oct 07 18:53:09 2003 +0200
+++ b/ArithmeticValue.st	Tue Oct 07 23:16:43 2003 +0200
@@ -960,15 +960,8 @@
 
 !ArithmeticValue methodsFor:'mathematical functions'!
 
-** aNumber
-    "return the receiver raised to aNumber"
-
-    ^ self raisedTo:aNumber
-
-    "
-     2 ** 4    
-     10 ** 4    
-    "
+raisedTo: aNumber
+    ^ self subclassResponsibility
 !
 
 squared
@@ -977,6 +970,7 @@
     ^ self * self
 ! !
 
+
 !ArithmeticValue methodsFor:'queries'!
 
 respondsToArithmetic
@@ -1134,7 +1128,7 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.61 2003-08-06 18:56:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.62 2003-10-07 21:16:43 cg Exp $'
 ! !
 
 ArithmeticValue initialize!