Index: /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp	(revision 6751)
+++ /branches/ide-1.0/ccl/examples/cocoa-prefs.lisp	(revision 6752)
@@ -81,4 +81,8 @@
 
 
+(objc:defmethod (#/selectHyperspecFileURL: :void)
+    ((self lisp-preferences-window-controller)
+     sender)
+  )