strengthen type check

diff --git a/src/lib/format.pl b/src/lib/format.pl
index 82d96701ef493b05fa35b25b1f3c860f00396991..2478e3710c56dcee010a747621d44bbc9d666aee 100644 (file)
--- a/src/lib/format.pl
+++ b/src/lib/format.pl
@@ -88,7 +88,7 @@ format_(Fs, Args) -->
         format_cells(Cells).
 
 format_args_cells(Fs, Args, Cells) :-
-        must_be(list, Fs),
+        must_be(chars, Fs),
         must_be(list, Args),
         unique_variable_names(Args, VNs),
         phrase(cells(Fs,Args,0,[],VNs), Cells).