Index: slime.el
===================================================================
RCS file: /project/slime/cvsroot/slime/slime.el,v
retrieving revision 1.1154
diff -u -r1.1154 slime.el
--- slime.el    25 Apr 2009 08:53:16 -0000      1.1154
+++ slime.el    28 Apr 2009 13:46:27 -0000
@@ -6362,7 +6362,8 @@
   (let ((point (posn-point (event-end event))))
     (cond ((and point
                 (or (get-text-property point 'slime-part-number)
-                    (get-text-property point 'slime-action-number)))
+                    (get-text-property point 'slime-action-number)
+                    (get-text-property point 'slime-range-button)))
            (goto-char point)
            (slime-inspector-operate-on-point))
           (t
Index: contrib/swank-fancy-inspector.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp,v
retrieving revision 1.19
diff -u -r1.19 swank-fancy-inspector.lisp
--- contrib/swank-fancy-inspector.lisp  7 Mar 2009 19:10:06 -0000       1.19
+++ contrib/swank-fancy-inspector.lisp  28 Apr 2009 13:46:33 -0000
@@ -16,10 +16,16 @@
        ;;
        ;; Value 
        (cond ((boundp symbol)
-               (label-value-line (if (constantp symbol)
-                                     "It is a constant of value"
-                                     "It is a global variable bound to")
-                                 (symbol-value symbol)))
+               (append
+                (label-value-line (if (constantp symbol)
+                                      "It is a constant of value"
+                                      "It is a global variable bound to")
+                                  (symbol-value symbol)
+                                  :newline nil)
+                (unless (constantp symbol)
+                  `(" " (:action "[unbind it]"
+                                 ,(lambda () (makunbound symbol)))))
+                '((:newline))))
              (t '("It is unbound." (:newline))))
        (docstring-ispec "Documentation" symbol 'variable)
        (multiple-value-bind (expansion definedp) (macroexpand symbol)