anchor.diff:                (body in))
               (format t "script ~S does not exist~%" arg)))))
   
  -(defun stdin (cmd arg &rest rest)
  -  (declare (ignorable arg cmd rest))
  +(defun stdin (arg &rest rest)
  +  (declare (ignorable arg rest))
     (apply #'script :script *standard-input* rest))
   
  -(defun load (x file)
  -  (declare (ignore x))
  +(defun load (file &rest rest)
     (let ((function (rest (find-if (lambda (x) (funcall (first x) file)) *load*))))
       (when (verbose)
         (format *error-output* "~A ~A~%" function file)
         (finish-output))
  -    (funcall function file)))
  +    (apply function file rest)))
   
   (defun run (list)
     "The true internal entry invoked by the C binary. All roswell commands are dispatched from this function"
     (loop for elt in list
  -        do (apply (intern (string (first elt)) (find-package :ros)) elt)))
  +        for *cmd* = (first elt)
  +        do (apply (intern (string (first elt)) (find-package :ros)) (rest elt))))
   
   #+clisp
   (unless (find :ros.init *features*)
  
positive.code: (defparameter *argv* nil)
  (defparameter *ros-opts* nil)
  (defparameter *main* nil)
  (defparameter *load* `((identity . cl:load)))
  
  ;; small tools
  
negative.code:     (when (probe-file path)
        (sb-ext:set-sbcl-source-location path))))
  
  (defun source-registry (arg &rest rest)
    (declare (ignorable rest))
    (let ((dir (format nil "~{~A~^:~}"
                       (loop for i = arg then (subseq i (1+ pos))
                          for pos = (position #\: i)
  