         (enh-browsing-create-page 'note-list
                                   (format "Query Result of: %s" query)
                                   note-attrs
-                                  `(enh-command-get-note-attrs-from-query
-                                    ,query))
+                                  `(lambda () (enh-command-get-note-attrs-from-query ,query)))
         t)))))
 
 

                                                        (enh-get-tag-attr guid)))
                                 "All notes")
                               note-attrs
                               `(enh-command-get-note-attrs-from-notebook-and-tag-guids
                                 nil ,(if guid
                                          (list guid)
                                        nil))))))


(defun enh-browsing-open-search (widget &rest ignored)

                                       (enutil-aget 'name
                                                    (enh-get-search-attr guid)))
                               note-attrs
                               `(lambda () (enh-command-get-note-attrs-from-query
                                            ,(enutil-aget 'query
                                                          (enh-get-search-attr guid))))))))


(defun enh-browsing-open-note (widget &rest ignored)
