 	  (goto-char (point-max))
 	  (if (and cscope-suppress-empty-matches (= cscope-output-start (point)))
 	      (delete-region cscope-item-start (point-max))
-	    (insert cscope-separator-line))
+	    (progn
+	      (if (not cscope-start-directory)
+		  (setq cscope-start-directory default-directory))
+	      (insert cscope-separator-line)
+	      ))
 	  (setq continue
 		(and cscope-search-list
 		     (not (and cscope-first-match

		    ))
	      (setq cscope-process nil
		    modeline-process ": Search complete")
	      )
	    ))
	(set-buffer-modified-p nil)

; Description:  cscope interface for XEmacs
; Author:       Darryl Okahata
; Created:      Wed Apr 19 17:03:38 2000
; Modified:     Tue Mar 13 11:48:17 2001 (Darryl Okahata) darrylo@soco.agilent.com
; Language:     Emacs-Lisp
; Package:      N/A
; Status:       Experimental
