diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 4c6570c4de..89463b77a4 100644
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -18,8 +18,6 @@ M: integer item>xml
[ "Integers must fit in 32 bits" throw ] unless
[XML <-> XML] ;
-UNION: boolean t POSTPONE: f ;
-
M: boolean item>xml
"1" "0" ? [XML <-> XML] ;