Index: /trunk/source/cocoa-ide/cocoa-editor.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12757)
+++ /trunk/source/cocoa-ide/cocoa-editor.lisp	(revision 12758)
@@ -1339,5 +1339,10 @@
          (package-name (hi::variable-value 'hemlock::current-package :buffer buffer))
          (pathname (hi::buffer-pathname buffer))
-         (ranges (#/selectedRanges self))
+         ;; Cocotron issue 380: NSTextView doesn't implement #/selectedRanges and
+         ;;  #/setSelectedRanges: methods.
+         #-cocotron (ranges (#/selectedRanges self))
+         #+cocotron (ranges (#/arrayWithObject: ns:ns-array 
+                                                (#/valueWithRange: ns:ns-value
+                                                                   (#/selectedRange self))))
          (text (#/string self)))
     (dotimes (i (#/count ranges))