Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 790)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 791)
@@ -582,5 +582,5 @@
   (maphash #'(lambda (string cached)
 	       (setf (objc-constant-string-nsstringptr cached)
-		     (%make-nsstring string)))
+		     (%make-constant-nsstring string)))
 	   *objc-constant-strings*))