fix tests broken by singleton

diff --git a/src/lib/charsio.pl b/src/lib/charsio.pl
index 7a4186a50513d5b92f1b20b21e226abd0b9144cd..afe745a2ebf7905534d4010c24b6b90b6546ec64 100644 (file)
--- a/src/lib/charsio.pl
+++ b/src/lib/charsio.pl
@@ -153,7 +153,7 @@ char_type(Char, Type) :-
 
 max_char_code(Max) :-
         catch((length(_, Code),
-               catch(char_code(Char, Code),
+               catch(char_code(_Char, Code),
                      error(representation_error(_),_),
                      throw(max_char_code(Code))),
                false),