Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 226)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 227)
@@ -40,5 +40,5 @@
         ;;; Force this code out of the data cache and into memory, so
         ;;; that it'll get loaded into the icache.
-        (ff-call (%kernel-import #.arch::kernel-import-makedataexecutable) 
+        (ff-call (%kernel-import #.target::kernel-import-makedataexecutable) 
                  :address p 
                  :unsigned-fullword 8
@@ -51,5 +51,5 @@
                                    :address frame
                                    :void)
-  (throw (%get-object frame arch::catch-frame.catch-tag) value))
+  (throw (%get-object frame target::catch-frame.catch-tag) value))
 
 ;;; Initialize a jmp_buf so that when it's #_longjmp-ed to, it'll