diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 68a95d91546ff3fd1ac1c72c7c53a3ec11c5d80f..71f2f1a432794d522c26c5a882fc9cd1b8c0213a 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -115,7 +115,7 @@
 ;;; converted: we could go into an infinite recursion trying to convert the
 ;;; definition of a macro which uses itself.
 ;;;
-(let ((c:compile-time-define-macros* nil))
+(let ((c:*compile-time-define-macros* nil))
   (comf "ncode:defstruct")
   (comf "ncode:defmacro")
   (comf "ncode:macros")