--- a/ArithmeticValue.st	Mon Dec 08 13:33:41 2014 +0100
+++ b/ArithmeticValue.st	Mon Dec 08 16:08:00 2014 +0100
@@ -1219,7 +1219,8 @@
 even
     "return true if the receiver is divisible by 2"
 
-    ^ self truncated asInteger even
+    ^ self error:'non integer receiver'
+    "/ ^ self truncated asInteger even
 !
 
 isComplex
@@ -1407,11 +1408,11 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.95 2014-11-11 14:26:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.95 2014-11-11 14:26:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
 ! !