--- a/True.st	Wed Jun 10 18:24:00 2009 +0200
+++ b/True.st	Thu Jun 11 17:31:18 2009 +0200
@@ -55,6 +55,7 @@
 "
 ! !
 
+
 !True methodsFor:'conditional evaluation'!
 
 and:aBlock
@@ -118,6 +119,12 @@
 
 !True methodsFor:'converting'!
 
+asInteger
+    "false->0; true->1"
+
+    ^ 1
+!
+
 asNumber
     "false->0; true->1"
 
@@ -189,5 +196,5 @@
 !True class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/True.st,v 1.25 2007-12-19 14:33:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/True.st,v 1.26 2009-06-11 15:31:18 cg Exp $'
 ! !