minor fix

main.ml

@@ -203,11 +203,13 @@ let parse_hxml file =
 	) lines)
 
 let lookup_classes com fpath =
-	let found = ref [] in
+	let found = ref [] in	
+	let spath = String.lowercase fpath in
 	List.iter (fun cp ->
+		let cp = (if cp = "" then "./" else cp) in
 		let c = (try Common.get_full_path cp with _ -> cp) in
 		let clen = String.length c in
-		if clen < String.length fpath && String.sub fpath 0 clen = c then begin
+		if clen < String.length fpath && String.sub spath 0 clen = String.lowercase c then begin
 			let path = String.sub fpath clen (String.length fpath - clen) in
 			found := make_path path :: !found;
 		end