diff --git a/changelog b/changelog
index e3d84c9..6b8cd6f 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20070811 gxv src/interp/metalex.lisp remove trace commands
 20070811 tpd src/input/Makefile add mathml.input
 20070811 tpd src/input/mathml.input write test cases
 20070810 tpd readme add Arthur C. Ralfs
diff --git a/src/interp/metalex.lisp.pamphlet b/src/interp/metalex.lisp.pamphlet
index 5778b44..bd491f9 100644
--- a/src/interp/metalex.lisp.pamphlet
+++ b/src/interp/metalex.lisp.pamphlet
@@ -288,25 +288,6 @@ special character be the atom whose print name is the character itself."
              (setq Meta_Errors_Occurred t)))
    nil)
 
-; (trace skip-blanks)
-; (trace get-special-token)
-; (trace token-lookahead-type)
-; (trace make-adjustable-string)
-; (trace print-package)
-; (trace get-number-token)
-
-(trace next-META-line)
-(trace kill-comments)
-(trace kill-trailing-blanks)
-(trace get-META-token)
-(trace get-identifier-token)
-(trace get-string-token)
-(trace get-bstring-token)
-(trace make-defun)
-(trace print-fluids)
-(trace set-prefix)
-(trace print-rule)
-(trace meta-meta-error-handler)
 @
 \eject
 \begin{thebibliography}{99}