Index: contrib/swank-fancy-inspector.lisp
===================================================================
RCS file: /project/slime/cvsroot/slime/contrib/swank-fancy-inspector.lisp,v
retrieving revision 1.4
diff -u -b -r1.4 swank-fancy-inspector.lisp
--- contrib/swank-fancy-inspector.lisp	20 Sep 2007 14:55:53 -0000	1.4
+++ contrib/swank-fancy-inspector.lisp	8 Oct 2007 01:37:05 -0000
@@ -182,7 +182,7 @@
                                 (abort "Abort setting slot ~S" slot-name)
                               (let ((value-string (eval-in-emacs
                                                    `(condition-case c
-                                                     (slime-read-object
+                                                     (slime-read-from-minibuffer
                                                       ,(format nil "Set slot ~S to (evaluated) : " slot-name))
                                                      (quit nil)))))
                                 (when (and value-string