Index: /branches/gz-working/cocoa-ide/hemlock/src/edit-defs.lisp
===================================================================
--- /branches/gz-working/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 8446)
+++ /branches/gz-working/cocoa-ide/hemlock/src/edit-defs.lisp	(revision 8447)
@@ -77,5 +77,4 @@
 (defcommand "Edit Definition" (p)
   "Prompts for function/macro's definition name and goes to it for editing."
-  "Prompts for function/macro's definition name and goes to it for editing."
   (declare (ignore p))
   (let ((fun-name (prompt-for-string
@@ -83,7 +82,6 @@
 		   :help "Symbol name of function.")))
     (get-def-info-and-go-to-it fun-name (or
-                                             (find-package
-                                              (variable-value 'current-package :buffer (current-buffer)))
-                                             *package*))))
+                                         (buffer-package (current-buffer))
+                                         *package*))))
 
 (defun get-def-info-and-go-to-it (string package)