Index: /branches/ide-1.0/ccl/examples/objc-runtime.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6585)
+++ /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6586)
@@ -2800,7 +2800,8 @@
 	(release-autorelease-pool ,pool-temp)))))
 
+
 (defun %make-nsstring (string)
-  (with-cstrs ((s string))
-    (%make-nsstring-from-c-string s)))
+  (with-encoded-cstrs :utf-8 ((s string))
+    (%make-nsstring-from-utf8-c-string s)))
 
 #+apple-objc-2.0