diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 3e26a05ea417814769d490624a625827b817bbbf..0a5f7bc7c9f681868c802268da7edc8044bff798 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -174,10 +174,6 @@
 
 (comf "target:code/loop")
 
-;;; XP won't cross-compile.
-#+new-compiler
-(comf "target:code/xp")
-
 #+clx
 (comf "target:code/clx-ext")