diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 1609a9d2172cb6d0e60c75b94c6541247e22a0ff..460aea7169864d4ed197d58d9fac56d468ce4945 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -8,7 +8,9 @@
   (make-package "XLIB" :use '("LISP")))
 
 #+(and (not pcl) (not no-pcl-clx))
-(load "target:pcl/pclload")
+(progn
+  (load "target:pcl/pclload")
+  (ext:purify))
 
 (pushnew :clx-ansi-common-lisp *features*)