keep compilable with EiffelStudio <= 7.1

draft/application/cms/src/kernel/link/cms_external_link.e

@@ -29,6 +29,8 @@ feature -- Status report
 
 	is_expandable: BOOLEAN = False
 
+	has_children: BOOLEAN = False
+
 	children: detachable LIST [CMS_LINK]
 		do
 		end

draft/application/cms/src/modules/debug/debug_module.e

@@ -86,7 +86,7 @@ feature -- Handler
 
 				s.append ("<hr/>")
 
-				append_info_to ("Current dir", (create {EXECUTION_ENVIRONMENT}).current_working_path.name, e, s)
+				append_info_to ("Current dir", (create {EXECUTION_ENVIRONMENT}).current_working_directory, e, s)
 				append_info_to ("Base url", cms.base_url, e, s)
 				append_info_to ("Script url", cms.script_url, e, s)
 				s.append ("<hr/>")