diff --git a/gdb/.Sanitize b/gdb/.Sanitize
index bbdb084216..4a714721dd 100644
--- a/gdb/.Sanitize
+++ b/gdb/.Sanitize
@@ -29,6 +29,20 @@ else
 	fi
 fi
 
+kod_files="kod.c kodecosdll.c"
+
+if ( echo $* | grep keep\-kod > /dev/null ) ; then
+	keep_these_too="${kod_files} ${keep_these_too}"
+	if [ -n "${verbose}" ] ; then
+		echo Keeping ${kod_files}
+	fi
+else
+	lose_these_too="${kod_files} ${lose_these_too}"
+	if [ -n "${verbose}" ] ; then
+		echo Deleting ${kod_files}
+	fi
+fi
+
 tic80_files="tic80-tdep.c"
 
 if ( echo $* | grep keep\-tic80 > /dev/null ) ; then
@@ -833,6 +847,33 @@ else
 	done
 fi
 
+if ( echo $* | grep keep\-kod > /dev/null ) ; then
+	for i in * ; do
+		if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+			if [ -n "${verbose}" ] ; then
+				echo Keeping kod stuff in $i
+			fi
+		fi
+	done
+else
+	for i in * ; do
+		if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then
+			if [ -n "${verbose}" ] ; then
+				echo Removing traces of \"kod\" from $i...
+			fi
+			cp $i new
+			sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new
+			if [ -n "${safe}" -a ! -f .Recover/$i ] ; then
+				if [ -n "${verbose}" ] ; then
+					echo Caching $i in .Recover...
+				fi
+				mv $i .Recover
+			fi
+			mv new $i
+		fi
+	done
+fi
+
 # This is a temporary measure to sanitize out references to the
 # startup code need by the TclPro debugger.  When that goes out
 # of alpha, we can remove this.