--- a/ArithmeticValue.st	Tue Jun 17 21:44:42 2003 +0200
+++ b/ArithmeticValue.st	Tue Jun 17 22:13:34 2003 +0200
@@ -1163,7 +1163,7 @@
 tan
     "return the tangens of the receiver (interpreted as radians)"
 
-    ^ self asFloat tan
+    ^ self sin / self cos
 !
 
 tanh
@@ -1240,7 +1240,7 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.54 2003-06-17 14:08:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.55 2003-06-17 20:13:34 cg Exp $'
 ! !
 
 ArithmeticValue initialize!