anchor.diff:  					  ("." . make-special-utility)
   					  ("eval" . make-special-utility)
   					  ("exec" . make-special-utility)
  -					  ("umask" . make-special-utility)
   					  ("export" . make-special-utility)
   					  ("unset" . make-special-utility)
  -					  ("alias" . make-special-utility)
  +					  ("return" . make-special-utility)
   					  ("exit" . make-special-utility)
   					  ))
   ; TODO implement some utilities
   (defparameter +shell-utilities+ '(("cd" . make-utility)
  +				  ("umask" . make-utility)
  +				  ("alias" . make-utility)
   				  ("[" . make-utility)))
   
   (defparameter +special-variables+ '(:@ :# :* :? :- :$ :! :0))
  
positive.code:                     (setf iolib/pathnames:*default-file-path-defaults* abspath)
                      0)
                    (iolib/syscalls:enoent (v) (declare (ignore v)) 127))))
  	   (:|[|
  	     (run-command (make-program-command "/usr/bin/[" (command-words ut)
  						(command-assignments ut)
  						(command-redirects ut)))))
        (setf (iolib/os:environment) env))))
  
  (defun dot-command (ut)
    (let* ((script (second (command-words ut)))
  	 (script (if (position #\/ script)
  		     script
  		     (search-path script))))
      (format *error-output* ". ~a~%" script)
      (with-open-file (f script)
        (posix-repl :input-stream f :prompt nil :debug t))
      (format *error-output* "DONE: ~a~%" script)
      (se-last-returnval *current-shell-environment*)))
  
  (defun quote-string (string)
  
negative.code: 	  (assignments-to-env (command-assignments ut)))
      (unwind-protect
  	 (case (make-keyword (car (command-words ut)))
  	   (:|alias|
  	     (alias-command ut))
  	   (:|cd|
               (let
                 ((abspath
  