head_comments() is KO. type(myfun)==13 ; type(linspace)==11

Reported by Samuel GOUGEON (@sgougeon)

BUG DESCRIPTION:
----------------
--> function test()
  > // heading comment L#1
  > // heading comment L#2
  > disp("test function")
  > endfunction

--> head_comments test
head_comments: Wrong value for input argument #1: Name of a Scilab function expected.
at line    17 of function head_comments ( C:\PROGRA~1\scilab\SCILAB~1.0-A\modules\functions\macros\head_comments.sci line 26 )

--> type(test)
 ans  =
    13.

--> linspace(0,1,3);

--> type(linspace)
 ans  =
    11.

ERROR LOG:
----------
See above

HOW TO REPRODUCE THE BUG:
-------------------------
function test()
   // heading comment L#1
   // heading comment L#2
   disp("test function")
endfunction
head_comments test
type(test)
linspace(0,1,3);
type(linspace)