--- a/False.st	Thu Jun 11 17:31:18 2009 +0200
+++ b/False.st	Thu Jun 11 17:31:25 2009 +0200
@@ -55,6 +55,7 @@
 "
 ! !
 
+
 !False methodsFor:'conditional evaluation'!
 
 and:aBlock
@@ -117,6 +118,12 @@
 
 !False methodsFor:'converting'!
 
+asInteger
+    "false->0; true->1"
+
+    ^ 0
+!
+
 asNumber
     "false->0; true->1"
 
@@ -188,5 +195,5 @@
 !False class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.24 2007-12-19 14:33:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/False.st,v 1.25 2009-06-11 15:31:25 cg Exp $'
 ! !