Go back and accept only list of chars

diff --git a/src/lib/os.pl b/src/lib/os.pl
index b60a1a71575fff2d285a4870c5a014db688096e0..448b5f74ff604a92e37c1974095d3731bad5a541 100644 (file)
--- a/src/lib/os.pl
+++ b/src/lib/os.pl
@@ -39,13 +39,9 @@ unsetenv(Key) :-
 
 shell(Command) :- shell(Command, 0).
 shell(Command, Status) :-
-    (   atom_si(Command) ->
-        atom_chars(Command, CommandChars)
-    ;   Command = CommandChars
-    ),
-    must_be_chars(CommandChars),
+    must_be_chars(Command),
     can_be(integer, Status),
-    '$shell'(CommandChars, Status).
+    '$shell'(Command, Status).
 
 pid(PID) :-
         can_be(integer, PID),