Index: frames.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/frames.lisp,v
retrieving revision 1.125
diff -b -u -F^(def -r1.125 frames.lisp
--- frames.lisp	7 Feb 2007 12:44:16 -0000	1.125
+++ frames.lisp	2 Mar 2007 21:56:05 -0000
@@ -505,9 +505,9 @@ (defmethod read-frame-command :around ((
     (menu-item
      (let ((command (command-menu-item-value object)))
        (unless (listp command)
-	 (setq command (list command)))       
+	 (setq command (partial-command-from-name command)))
        (if (and (typep stream 'interactor-pane)
-		(member *unsupplied-argument-marker* command :test #'eq))
+		(partial-command-p command))
 	   (command-line-read-remaining-arguments-for-partial-command
 	    (frame-command-table frame) stream command 0)
 	   command)))))
