1 files changed, 6 insertions, 0 deletions
diff --git a/lib/make/new_thorn.pl b/lib/make/new_thorn.pl
index 41042c70..05ec24b7 100755
--- a/lib/make/new_thorn.pl
+++ b/lib/make/new_thorn.pl
@@ -285,6 +285,12 @@ sub TestName
     $valid = 0;
   }
 
+  if ($thorn && length($name)>27)
+  {
+    print STDERR "Thorn names must be 27 characters or less!\n\n";
+    $valid = 0;
+  }
+
   if ($thorn && $name eq "doc")
   {
     print STDERR "Thorn name doc is not allowed!\n\n";