diff --git a/server.pl b/server.pl
index ce64c5a..bb49066 100755
--- a/server.pl
+++ b/server.pl
@@ -40,7 +40,7 @@ script_name(ScriptName) -->
     {atom_codes(ScriptName, [FirstChar|RemainingChars])}.
 script_name_chars([Char|Chars]) -->
     [Char],
-    {char_type(Char, alnum); Char = '_'},
+    {char_type(Char, alnum); Char = '_'; Char = '-'},
     script_name_chars(Chars).
 script_name_chars([]) --> [].
 condition(Condition, Level) -->