diff --git a/Perl_tinyca/CA.pm b/Perl_tinyca/CA.pm
index f63db38..98b4b58 100644
--- a/Perl_tinyca/CA.pm
+++ b/Perl_tinyca/CA.pm
@@ -52,6 +52,8 @@ sub new {
          next if $ca eq ".";
          next if $ca eq "..";
          next if $ca eq "tmp";
+### ArG 12.09.2023
+         if ( $ca eq "CONET_CA2" and $ENV{'TERM'} =~ /^screen/ ) { next; }
 
          my $dir = $self->{'init'}->{'basedir'}."/".$ca;
          next unless -d $dir;