diff -r -u smarteiffel-21b5.orig/lib/kernel/any.e smarteiffel-21b5/lib/kernel/any.e
--- smarteiffel-21b5.orig/lib/kernel/any.e	Thu Jan  6 08:59:36 2005
+++ smarteiffel-21b5/lib/kernel/any.e	Fri Jan  7 17:56:54 2005
@@ -11,6 +11,13 @@
 insert
 	PLATFORM
 
+feature
+
+	same_type (o: ANY): BOOLEAN is
+		do
+			Result := generating_type.is_equal (o.generating_type)
+		end
+
 end -- class ANY
 --
 -- ------------------------------------------------------------------------------------------------------------------------------
diff -r -u smarteiffel-21b5.orig/tools/expression/call_proc_call.e smarteiffel-21b5/tools/expression/call_proc_call.e
--- smarteiffel-21b5.orig/tools/expression/call_proc_call.e	Thu Jan  6 08:59:38 2005
+++ smarteiffel-21b5/tools/expression/call_proc_call.e	Fri Jan  7 19:50:15 2005
@@ -91,7 +91,7 @@
 					check
 						cl /= Void
 					end
-					exported := cl.gives_permission_to(t.class_text.name)
+					exported := True
 					if not exported then
 						error_handler.add_position(start_position)
 						error_handler.append("Forbidden call (i.e. exportation rules violated) when the type of Current is ")
diff -r -u smarteiffel-21b5.orig/tools/smart_eiffel.e smarteiffel-21b5/tools/smart_eiffel.e
--- smarteiffel-21b5.orig/tools/smart_eiffel.e	Thu Jan  6 08:59:38 2005
+++ smarteiffel-21b5/tools/smart_eiffel.e	Fri Jan  7 19:50:52 2005
@@ -16,7 +16,7 @@
 feature {ANY}
 	copyright: STRING is "[
       SmartEiffel The GNU Eiffel Compiler, Eiffel tools and libraries
-      Release 2.1 Beta#5 (Thursday january 6th 2005) [Poirot]
+      Release 2.1 Beta#5 fa1 (Thursday january 6th 2005) [Poireau]
       Copyright (C), 1994-2002 - INRIA - LORIA - ESIAL UHP Nancy 1 - FRANCE
       Copyright (C), 2003-2004 - INRIA - LORIA - IUT Charlemagne Nancy 2 - FRANCE
       D.COLNET, P.RIBET, C.ADRIAN, V.CROIZIER F.MERIZEN - SmartEiffel@loria.fr