Fixed Smelting. Again. - resolves ticket #1025 (the power of the kludge compels you!)

diff --git a/ARL.lua b/ARL.lua
index 5bdb410..cb44a19 100644
--- a/ARL.lua
+++ b/ARL.lua
@@ -1642,7 +1642,7 @@ do
 		local recipes_total_filtered = 0
 		local recipes_known_filtered = 0
 		local can_display = false
-		local current_profession = private.ordered_professions[self.Frame.profession]
+		local current_profession = self.Frame.prof_name or private.ordered_professions[self.Frame.profession]
 		local recipe_list = private.recipe_list
 		local SF = private.recipe_state_flags

diff --git a/Frame.lua b/Frame.lua
index 8cad5e2..68d63bc 100644
--- a/Frame.lua
+++ b/Frame.lua
@@ -4334,7 +4334,8 @@ do
 		local prev_profession = self.profession

 		if profession == private.mining_name then
-			self.profession = 11 -- Smelting
+		 	self.profession = 11 -- Smelting
+			self.prof_name = profession
 		else
 			for index, name in ipairs(ORDERED_PROFESSIONS) do
 				if name == profession then
@@ -4342,6 +4343,7 @@ do
 					break
 				end
 			end
+			self.prof_name = nil
 		end

 		if self.profession ~= prev_profession then