diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 9edaa3e5246a0c27f0104bd4b294ae5477a75fe7..8eabc7309e57515137e4d326b263e1e157eb77cd 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -21,7 +21,7 @@
      '(((:or :external (:and (:match "%") (:match "SET")))
 	(declare (optimize-interface (safety 2))))
        ((:or (:and :external :macro)
-	     (match "$PARSE-"))
+	     (:match "$PARSE-"))
 	(declare (optimize (safety 2))))
        ((:and :external (:match "LIST"))
 	(declare (optimize (safety 1))))))