# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1065561403 -7200
# Node ID fbe7cf11ac9e1fb77c8b3be6c426c4f8bef4de52
# Parent  f5b75d721f6970aeb94cda57e2e9f6cd3103550d
*** empty log message ***

diff -r f5b75d721f69 -r fbe7cf11ac9e ArithmeticValue.st
--- 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!