as long as we are hacking...

[scpubgit/stemmatology.git] / script / make_tradition.pl

diff --git a/script/make_tradition.pl b/script/make_tradition.pl
index 1b184a4..e4bc47c 100755 (executable)
--- a/script/make_tradition.pl
+++ b/script/make_tradition.pl
@@ -82,6 +82,8 @@ if( $HACK ) {
        my @togo = qw/ C E G /;
        $tradition->collation->clear_witness( @togo );
        $tradition->del_witness( @togo );
+       # Set the funny name while we're at it
+       $tradition->name( "\x{17d}amanakagrut\x{2bf}iwn" );
 }
 
 # Now output what we have been asked to.