--- t.t.old	2017-05-23 10:43:30.000000000 +0200
+++ t.t	2017-05-23 10:43:50.000000000 +0200
@@ -906,6 +906,8 @@
 fncall(fn) do var i;
 	T := scan();
 	if (fn = 0) aw("call of non-function", 0);
+	if (fn[SFLAGS] & (FUNC|FORW) = 0)
+		aw("call of non-function", fn[SNAME]);
 	i := 0;
 	while (T \= RPAREN) do
 		expr(0);