Index: input-editor.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp,v
retrieving revision 1.17
diff -b -u -F^(def -r1.17 input-editor.lisp
--- input-editor.lisp	19 Feb 2007 00:12:22 -0000	1.17
+++ input-editor.lisp	8 Mar 2007 18:43:29 -0000
@@ -363,8 +363,8 @@ (defun present-acceptably-to-string (obj
 	  (setq acceptably nil)
 	  (setq printed-rep (present-it nil))))
       (values printed-rep (if acceptably
-			      nil
-			      object)))))
+			      object
+			      nil)))))
 
 (defmethod presentation-replace-input
     ((stream drei-input-editing-mixin) object type view