diff --git a/build/check_embedded.pl b/build/check_embedded.pl
index 166b450d..131054e2 100755
--- a/build/check_embedded.pl
+++ b/build/check_embedded.pl
@@ -71,6 +71,13 @@
 				$subjectCN = $1;
 				# print "subjectCN = $subjectCN\n";
 			}
+			if (/RSA Public Key: \((\d+) bit\)/) {
+				$pubSize = $1;
+				# print "   Public key size: $pubSize\n";
+				if ($pubSize < 1024) {
+					print "      *** PUBLIC KEY TOO SHORT ***\n";
+				}
+			}
 		}
 		close SSL;
 		#print "   text lines: $#lines\n";