diff --git a/src/modules/_Crypto/.build_lobotomized_crypto b/src/modules/_Crypto/.build_lobotomized_crypto
index f790a5c5d46958687f02980c8f702c642f42bbbe..0e10fbccf8757a93cf70d6792d95dae7ec423d1e 100755
--- a/src/modules/_Crypto/.build_lobotomized_crypto
+++ b/src/modules/_Crypto/.build_lobotomized_crypto
@@ -21,7 +21,7 @@ for d in . include lib; do
 done
 
 echo "Censoring sensitive files"
-for f in crypto.c Makefile.in lib/Makefile.in ; do
+for f in crypto.c Makefile.in lib/Makefile.in testsuite.in ; do
     echo $f
     sed '/BEGIN NATIONAL SECURITY/,/END NATIONAL SECURITY/d' \
     < $f > ../_Lobotomized_Crypto/$f
diff --git a/src/modules/_Crypto/testsuite.in b/src/modules/_Crypto/testsuite.in
index 65917d94d99a2a64cf193629f259eadc079cd119..78579e7a5adde6b5cbe94b47ccaf8b42ef966a3f 100644
--- a/src/modules/_Crypto/testsuite.in
+++ b/src/modules/_Crypto/testsuite.in
@@ -4,20 +4,24 @@ test_true([[objectp(Crypto)]])
 // C-programs
 test_true([[programp(Crypto.cbc)]])
 test_true([[programp(Crypto.crypto)]])
-test_true([[programp(Crypto.des)]])
-test_true([[programp(Crypto.idea)]])
-test_true([[programp(Crypto.cast)]])
 test_true([[programp(Crypto.invert)]])
 test_true([[programp(Crypto.md5)]])
 test_true([[programp(Crypto.pipe)]])
-test_true([[programp(Crypto.rc4)]])
 test_true([[programp(Crypto.sha)]])
 
+// BEGIN NATIONAL SECURITY
+test_true([[programp(Crypto.des)]])
+test_true([[programp(Crypto.idea)]])
+test_true([[programp(Crypto.cast)]])
+test_true([[programp(Crypto.rc4)]])
+// END NATIONAL SECURITY
+
 // Functions
 test_true([[functionp(Crypto.des_parity)]])
 test_true([[functionp(Crypto.hex_to_string)]])
 test_true([[functionp(Crypto.string_to_hex)]])
 
+// BEGIN NATIONAL SECURITY
 cond( [[ master()->resolv("Gmp")->mpz ]],
 [[
 
@@ -158,6 +162,8 @@ test_eq([[Crypto.rc4()->set_encrypt_key(Crypto.hex_to_string("0123456789abcdef")
 	  "b99fcd8660863a159ad4abe40fa48934163ddde542a6585540fd683cbfd8c00f"
 	  "12129a284deacc4cdefe58be7137541c047126c8d49e2755ab181ab7e940b0c0")]])
 ]])
+
+// END NATIONAL SECURITY
 cond( [[ master()->resolv("Gmp")->mpz ]],
 [[