Index: /trunk/source/objc-bridge/objc-support.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-support.lisp	(revision 14264)
+++ /trunk/source/objc-bridge/objc-support.lisp	(revision 14265)
@@ -512,7 +512,5 @@
 (defun lisp-string-from-nsstring-substring (nsstring start length)
   (let* ((substring (#/substringWithRange: nsstring (ns:make-ns-range start length))))
-    (prog1
-        (lisp-string-from-nsstring substring)
-      (#/release substring))))
+    (lisp-string-from-nsstring substring)))
 
 (def-standard-initial-binding *listener-autorelease-pool* nil)