diff --git a/sources/lib/dispatch-profiler/walk-dispatch.dylan b/sources/lib/dispatch-profiler/walk-dispatch.dylan
index 1042c0214..b1f726ad3 100644
--- a/sources/lib/dispatch-profiler/walk-dispatch.dylan
+++ b/sources/lib/dispatch-profiler/walk-dispatch.dylan
@@ -247,6 +247,7 @@ define macro with-dispatch-walking-type
 
 end macro;
 
+/*
 define macro with-preserved-dispatch-walking-types
 
     { with-preserved-dispatch-walking-types (?dws:expression)
@@ -263,7 +264,7 @@ define macro with-preserved-dispatch-walking-types
       end block }
 
 end macro;
-
+*/
 
 
 define method dispatch-walker