0.8.13.73: Documentation oops

[sbcl.git] / doc / manual / start-stop.texinfo

diff --git a/doc/manual/start-stop.texinfo b/doc/manual/start-stop.texinfo
index 320a8b6..8e9df47 100644 (file)
--- a/doc/manual/start-stop.texinfo
+++ b/doc/manual/start-stop.texinfo
@@ -301,7 +301,8 @@ initialization file does the trick:
 @lisp
 ;;; If the first user-processable command-line argument is a filename,
 ;;; disable the debugger, load the file handling shebang-line and quit.
-(let ((script (probe-file (second sb-ext:*posix-argv*))))
+(let ((script (and (second sb-ext:*posix-argv*)
+                   (probe-file (second sb-ext:*posix-argv*)))))
   (when script
     ;; Handle the possible shebang-line
     (set-dispatch-macro-character #\# #\!