Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 651)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 652)
@@ -534,5 +534,5 @@
 ;;; Make a persistent (heap-allocated) NSConstantString.
 
-(defun %make-nsstring (string)
+(defun %make-constant-nsstring (string)
   "Make a persistent (heap-allocated) NSConstantString from the
 argument lisp string."
@@ -549,4 +549,10 @@
   )
 
+(defun %make-nsstring (string)
+  (with-cstrs ((s string))
+    (make-objc-instance 'ns:ns-string
+                        :with-c-string s)))
+                        
+
 
 ;;; Intern NSConstantString instances.
@@ -561,5 +567,5 @@
       (setf (gethash string *objc-constant-strings*)
 	    (make-objc-constant-string :string string
-				       :nsstringptr (%make-nsstring string)))))
+				       :nsstringptr (%make-constant-nsstring string)))))
 
 (def-ccl-pointers objc-strings ()