     (if (interactive-p)
 	(message "Selected chainsetup: %s" val))
     val))
+
+(defeci cs-set-length 
+  ((pos
+    (if current-prefix-arg
+	(prefix-numeric-value current-prefix-arg)
+      (read-minibuffer "Position: ")) "%f"))
+  "Sets processing time in seconds (doesn’t have to be an integer
+value).  A special-case value of -1 will set the chainsetup
+length according to the longest input object."
+  :alias (set-length))
+
+(defeci cs-set-position-samples 
+  ((pos
+    (if current-prefix-arg
+	(prefix-numeric-value current-prefix-arg)
+      (read-minibuffer "Position: ")) "%f"))
+  "Sets the chainsetup position to POS samples from the beginning.  Position
+  of all inputs and outputs attached to the selected chainsetup is also affected."
+  :pcomplete doc)
+
 
 (defeci cs-set-position
   ((pos

    (if (and result (not (string= result "")))
	result
      default)))

;;; Markers




;;; ECI commands implemented as lisp functions

(defeci int-cmd-list ()
