diff --git a/src/tools/make_ctags b/src/tools/make_ctags
index b0b04afa07c2c361f503c557254cb2ad8f67e705..646102daef1c7e6f0204080e2fb8982ba90b9f9a 100755
--- a/src/tools/make_ctags
+++ b/src/tools/make_ctags
@@ -1,7 +1,9 @@
 #!/bin/sh
 trap "rm -f /tmp/$$" 0 1 2 3 15
 rm -f ./tags
-find `pwd`/ -type f -name '*.[chyl]' -print|xargs ctags -d -t -a -f tags
+find `pwd`/ \( -name _deadcode -a -prune \) -o \
+	-type f -name '*.[chyl]' -print|xargs ctags -d -t -a -f tags
+
 sort tags >/tmp/$$ && mv /tmp/$$ tags
 
 find . -type d -print |while read DIR
diff --git a/src/tools/make_mkid b/src/tools/make_mkid
index 01ed0f079b2dee9bb25f55f65666a898a97e8bef..153a0176de94a96764493e296a5fe2e6322458c2 100755
--- a/src/tools/make_mkid
+++ b/src/tools/make_mkid
@@ -1,5 +1,6 @@
 #!/bin/sh
-find `pwd`/ -type f -name '*.[chyl]' -print|sed 's;//;/;g' | mkid -S.gen=C -
+find `pwd`/ \( -name _deadcode -a -prune \) -o \
+	-type f -name '*.[chyl]' -print|sed 's;//;/;g' | mkid -S.gen=C -
 
 find . -type d -print |while read DIR
 do