Index: /trunk/source/level-1/l1-readloop-lds.lisp
===================================================================
--- /trunk/source/level-1/l1-readloop-lds.lisp	(revision 14933)
+++ /trunk/source/level-1/l1-readloop-lds.lisp	(revision 14934)
@@ -86,5 +86,5 @@
 	  (show-process-info proc)))))
 
-(define-toplevel-command :global cd (dir) "Change to directory DIR" (setf (current-directory) dir) (toplevel-print (list (current-directory))))
+(define-toplevel-command :global cd (dir) "Change to directory DIR (e.g., #p\"ccl:\" or \"/some/dir\")" (setf (current-directory) dir) (toplevel-print (list (current-directory))))
 
 (define-toplevel-command :global pwd () "Print the pathame of the current directory" (toplevel-print (list (current-directory))))