Made the SQL storage more flexible with INTEGER_32, by allowing to retrieve INTEGER_64 and convert to INTEGER_32 if value can be converted to integer 32.

library/persistence/implementation/store/cms_storage_store_sql.e

@@ -152,15 +152,27 @@ feature -- Query
 			-- Retrieved value at `a_index' position in `item'.
 		local
 			l_item: like sql_item
+			i64: INTEGER_64
 		do
 			l_item := sql_item (a_index)
 			if attached {INTEGER_32} l_item as i then
 				Result := i
 			elseif attached {INTEGER_32_REF} l_item as l_value then
 				Result := l_value.item
+			else
+				if attached {INTEGER_64} l_item as i then
+					i64 := i
+				elseif attached {INTEGER_64_REF} l_item as l_value then
+					i64 := l_value.item
 				else
 					check is_integer_32: False end
 				end
+				if i64 <= {INTEGER_32}.max_value then
+					Result := i64.to_integer_32
+				else
+					check is_integer_32: False end
+				end				
+			end
 		end
 
 	sql_read_date_time (a_index: INTEGER): detachable DATE_TIME