Minor fixes font wise...

source/main.adb

@@ -202,7 +202,7 @@ begin
 
 	cursor_mode := 0;
 
-	xxx := import_text ("./source/skill.ads");
+	xxx := import_text ("./source/attribute.adb");
 
 	main_menu_loop: loop
 		synchronize;
@@ -211,7 +211,6 @@ begin
 		--
 		--~main_menu;
 		--
-		--~ui.write (to_string (xxx.text), 0, 0, size => 11, code => true);
 		ui.write_ada_code (xxx, 0, 0);
 	end loop main_menu_loop;
 

source/ui.adb

@@ -647,7 +647,7 @@ package body ui is
 					subset := 1;
 					loop
 						buffer := ada.strings.unbounded.element (text.text, length + subset);
-						exit when buffer = ' ' or buffer = '.' or buffer = '(' or buffer = ')' or buffer = ',' or buffer = ';'
+						exit when buffer = ' ' or buffer = '.' or buffer = '(' or buffer = ')' or buffer = ',' or buffer = ';' or buffer = '''
 							or buffer = character'val (9) or buffer = character'val (10);
 						word := word & to_unbounded_string (buffer & "");
 						core.increment (subset);