basis: ERROR: changes.

[factor.git] / basis / xml-rpc / xml-rpc.factor

diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 36bc349e11fe5b6902d6cbb6caf19fe032732f16..86a67afd17de87295b00c0c23e3d02f919e47433 100644 (file)
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -125,7 +125,7 @@ TAG: boolean xml>item
     children>string {
         { "1" [ t ] }
         { "0" [ f ] }
-        [ "Bad boolean" server-error ]
+        [ "Bad boolean" throw-server-error ]
     } case ;
 
 : unstruct-member ( tag -- )
@@ -167,7 +167,7 @@ TAG: array xml>item
             dup first-child-tag main>> "fault" =
             [ parse-fault <rpc-fault> ]
             [ parse-rpc-response <rpc-response> ] if
-        ] [ "Bad main tag name" server-error ] if
+        ] [ "Bad main tag name" throw-server-error ] if
     ] if ;
 
 <PRIVATE