diff --git a/tables/tables.tbh b/tables/tables.tbh
index c2b492b..6e48af5 100644
--- a/tables/tables.tbh
+++ b/tables/tables.tbh
@@ -145,6 +145,7 @@ type tbl_type
 	field_num_offset as word
 	num_of_fields as byte
 	clean_start as no_yes
+	filenum as byte
 end type
 
 type struct_tbl_timestamp
diff --git a/tables/tables.tbs b/tables/tables.tbs
index 7404e8b..374053b 100644
--- a/tables/tables.tbs
+++ b/tables/tables.tbs
@@ -759,6 +759,8 @@ no_field_found:
 		
 		tbl_item.clean_start=NO
 		
+		tbl_item.filenum=255
+		
 		if tbl_info_index<TBL_MAX_NUM_TABLES then
 			tbl_info(tbl_info_index)=tbl_item	
 		end if
@@ -920,6 +922,7 @@ fail_to_open:
 	
 	tbl_info_index=f
 	tbl_selected_file_name=file_name
+	tbl_info(tbl_info_index).filenum=i
 	tbl_get_num_records(tbl_selected_all_rc,YES)
 	
 	if fd.transactionstart()<>PL_FD_STATUS_OK then goto fd_error