let html = MatitaFilesystem.html_of_library uid in
cgi#out_channel#output_string
- ("<html><head>\n" ^
+ ((*
+ "<html><head>\n" ^
"<title>XML Tree Control</title>\n" ^
"<link href=\"treeview/xmlTree.css\" type=\"text/css\" rel=\"stylesheet\">\n" ^
"<script src=\"treeview/xmlTree.js\" type=\"text/javascript\"></script>\n" ^
- "<body>\n" ^ html ^ "\n</body></html>");
+ "<body>\n" ^ *)
+ html (* ^ "\n</body></html>" *) );
cgi#out_channel#commit_work()
;;