diff --git a/lib/ULexiTools.pm b/lib/ULexiTools.pm
index 54e5276..25b5c7b 100644
--- a/lib/ULexiTools.pm
+++ b/lib/ULexiTools.pm
@@ -1466,7 +1466,7 @@ sub is_right_bracket #ch
    #use re qw(Debug All);
    if (0) {
       my $re = qr/^(<[a]>)*[])}”’´]$/;
-      use Devel::Peek;
+      #use Devel::Peek;
       print "RE=$re\n";
    }
    my $ch=shift;