diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 05bf18f3c687b2a01ca4bb054ec2676343a1d9d1..c2f85fd2684b388d1cae558ba81a064fad9a2f8f 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -140,8 +140,10 @@
 (comf "target:code/serve-event")
 (pushnew :serve-event *features*)
 (comf "target:code/fd-stream")
-(comf "target:code/pathname")
-(comf "target:code/filesys")
+(with-compilation-unit ; Until this code is shaken down more...
+  (:optimize '(optimize (safety 2) (debug 2)))
+  (comf "target:code/pathname")
+  (comf "target:code/filesys"))
 (comf "target:code/load")
 
 (comf "target:code/eval")