Index: /branches/ide-1.0/ccl/examples/cocoa-editor.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6717)
+++ /branches/ide-1.0/ccl/examples/cocoa-editor.lisp	(revision 6718)
@@ -1778,10 +1778,11 @@
 
 (objc:defmethod (#/validateMenuItem: :<BOOL>)
-    ((self hemlock-editor-document) item)
+    ((self hemlock-text-view) item)
   (let* ((action (#/action item)))
-    (#_NSLog #@"action = %s" :address action)
+    #+debug (#_NSLog #@"action = %s" :address action)
     (if (eql action (@selector #/hyperSpecLookUp:))
       ;;; For now, demand a selection.
-      (not (eql 0 (ns:ns-range-length (#/selectedRange self))))
+      (and *hyperspec-root-url*
+           (not (eql 0 (ns:ns-range-length (#/selectedRange self)))))
       (call-next-method item))))