diff --git a/cURL-safe.ecf b/cURL-safe.ecf
index 997f2d03..3c851e32 100644
--- a/cURL-safe.ecf
+++ b/cURL-safe.ecf
@@ -69,14 +69,25 @@
 			</file_rule>
 			<file_rule>
 				<exclude>/gtk$</exclude>
+				<exclude>/mac$</exclude>
 				<condition>
 					<platform value="windows"/>
 				</condition>
 			</file_rule>
 			<file_rule>
 				<exclude>/mswin$</exclude>
+				<exclude>/gtk$</exclude>
+				<condition>
+					<platform value="macintosh"/>
+					<custom name="vision_implementation" value="cocoa"/>
+				</condition>
+			</file_rule>
+			<file_rule>
+				<exclude>/mswin$</exclude>
+				<exclude>/mac$</exclude>
 				<condition>
 					<platform excluded_value="windows"/>
+					<custom name="vision_implementation" excluded_value="cocoa"/>
 				</condition>
 			</file_rule>
 		</cluster>
diff --git a/cURL.ecf b/cURL.ecf
index 9b3aae81..885a50ce 100644
--- a/cURL.ecf
+++ b/cURL.ecf
@@ -64,14 +64,25 @@
 			</file_rule>
 			<file_rule>
 				<exclude>/gtk$</exclude>
+				<exclude>/mac$</exclude>
 				<condition>
 					<platform value="windows"/>
 				</condition>
 			</file_rule>
 			<file_rule>
 				<exclude>/mswin$</exclude>
+				<exclude>/gtk$</exclude>
+				<condition>
+					<platform value="macintosh"/>
+					<custom name="vision_implementation" value="cocoa"/>
+				</condition>
+			</file_rule>
+			<file_rule>
+				<exclude>/mswin$</exclude>
+				<exclude>/mac$</exclude>
 				<condition>
 					<platform excluded_value="windows"/>
+					<custom name="vision_implementation" excluded_value="cocoa"/>
 				</condition>
 			</file_rule>
 		</cluster>
diff --git a/implementation/mac/api_loader_imp.e b/implementation/mac/api_loader_imp.e
new file mode 100644
index 00000000..e2eaf163
--- /dev/null
+++ b/implementation/mac/api_loader_imp.e
@@ -0,0 +1,65 @@
+note
+	description: "[
+					Interactive with native system APIs for dynamic loading.
+					Cocoa verson.
+																					]"
+	status: "See notice at end of class."
+	legal: "See notice at end of class."
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	API_LOADER_IMP
+
+feature -- Command
+
+	load_module (a_name: STRING): POINTER
+			-- Load module with `a_name'.
+		require
+			exists: a_name /= Void
+		do
+			-- fixme: implement
+		end
+
+	loal_api (a_module: POINTER; a_name: STRING): POINTER
+			-- Load api which name is `a_name' in `a_module'
+		require
+			exists: a_module /= default_pointer
+			exists: a_name /= Void
+		do
+			-- fixme: implement
+		end
+
+note
+	copyright: "Copyright (c) 1984-2007, Eiffel Software"
+	license:   "GPL version 2 (see http://www.eiffel.com/licensing/gpl.txt)"
+	licensing_options: "http://www.eiffel.com/licensing"
+	copying: "[
+			This file is part of Eiffel Software's Eiffel Development Environment.
+			
+			Eiffel Software's Eiffel Development Environment is free
+			software; you can redistribute it and/or modify it under
+			the terms of the GNU General Public License as published
+			by the Free Software Foundation, version 2 of the License
+			(available at the URL listed under "license" above).
+			
+			Eiffel Software's Eiffel Development Environment is
+			distributed in the hope that it will be useful, but
+			WITHOUT ANY WARRANTY; without even the implied warranty
+			of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+			See the GNU General Public License for more details.
+			
+			You should have received a copy of the GNU General Public
+			License along with Eiffel Software's Eiffel Development
+			Environment; if not, write to the Free Software Foundation,
+			Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+		]"
+	source: "[
+			 Eiffel Software
+			 356 Storke Road, Goleta, CA 93117 USA
+			 Telephone 805-685-1006, Fax 805-685-6869
+			 Website http://www.eiffel.com
+			 Customer support http://support.eiffel.com
+		]"
+
+end