anchor.diff:  			(cl-user::sw-help argstr) ; refers to *transform-help-strings*
   			))
   	   (at                 (at-command (parse-qid argstr)))
  +	   ((move m)           (move-command (string-spec::split argstr)))
  +	   ((f l n p w a s r)  (move-command (cons (string-downcase (string command))
  +						   (string-spec::split argstr))))
   	   ((simplify simp s)  (simplify-command argstr)    )
   	   ;((apply a)       (cl-user::ls     (or argstr "")))
   	   ((fold f)           (apply-command argstr 'Script::mkFold))
  
positive.code: (in-package :SWShell)
  
  (defvar *transform-help-strings* '(("at" . "[op] Focuses on definition of op")
  				   ("simplify" . "[rules] Applies rewriting simplifier with supplied rules.")
  				   ("fold" . "[op] folds first occurrence of definition of op")
  				   ("unfold" . "[op] unfolds first occurrence of op")
  
negative.code: (defun interpret-command (command)
    (if (null *transform-term*)
        (princ "No term chosen! (Use \"at\" command)")
        (let ((new-term (Script::interpretTerm-4 *transform-spec* command
  					       (car *transform-term*)
  					       (cdr *transform-term*))))
  	(if (MetaSlang::equalTerm?-2 (car *transform-term*) (car new-term))
  	    (format t "No effect!")
  	    (progn 
  	      (push-state)
  