Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 614)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 615)
@@ -1543,6 +1543,6 @@
 (defcallback deallocate-nsobject (:address obj :int)
   (unless (%null-ptr-p obj)
-    (remhash obj *objc-object-slot-vectors*))
-  (ff-call *original-deallocate-hook* :address obj :int))
+        (remhash obj *objc-object-slot-vectors*)
+    (ff-call *original-deallocate-hook* :address obj :int)))
 
 (defun install-lisp-deallocate-hook ()
@@ -1556,5 +1556,5 @@
   (setf (%get-ptr (foreign-symbol-address "__dealloc")) *original-deallocate-hook*))
 
-(pushnew #'uninstall-lisp-deallocate-hook *lisp-cleanup-functions* :test #'eq
+(pushnew #'uninstall-lisp-deallocate-hook *save-exit-functions* :test #'eq
          :key #'function-name)
 )