diff --git a/Packages/Manual_tools/src/cc_extract_include b/Packages/Manual_tools/src/cc_extract_include
new file mode 100755
index 00000000000..a6eb8ecdc46
--- /dev/null
+++ b/Packages/Manual_tools/src/cc_extract_include
@@ -0,0 +1,13 @@
+#!/bin/csh -f
+# **************************************************************************
+# 
+#  cc_extract_include
+#  ===================
+#  A script to extract \ccInclude statements from a spec file.
+#
+#  Author    : (c) 1997 Lutz Kettner   kettner@acm.org
+#  Revision  : $Revision$
+#  Date      : $Date$
+# 
+# **************************************************************************
+grep '\\ccInclude' $argv[1-] | sed 's/^.*[{]\([^}]*\)[}].*$/#include <\1>/'