       ;(setq sw:common-lisp-image-file (getenv "LISP_HEAP_IMAGE"))
       (setq sw:common-lisp-image-file world-name)
       (setq sw:common-lisp-image-arguments
-	    (if *windows-system-p* '("+cn") nil))
+	;; From http://www.franz.com/support/documentation/7.0/doc/startup.htm#command-line-args-1
+	;; +c : Start Allegro CL without a console window. 
+	;; (Normally, there is a console window to read/write standard I/O. 
+	;;  If you close the console window, the Lisp will be killed.) 
+	;; Note that there will not be an icon in the system tray regardless
+	;; of whether +R or +RR are specified when there is no console. 
+	;; (Having the console minimized with +cm, non-activated with +cn, or
+	;;  hidden with +cx does not affect whether there is a system tray icon.)
+	(if *windows-system-p* '("+c") nil))
       (when (getenv "SOCKET_INIT_FILE")
 	(set-socket-init-for-specware))
       (let ((log-warning-minimum-level 'error))

	(sw:common-lisp sw:common-lisp-buffer-name
			sw:common-lisp-directory
			sw:common-lisp-image-name
			(if *windows-system-p*
			    (cons "+cn" sw:common-lisp-image-arguments)
			  sw:common-lisp-image-arguments)
			sw:common-lisp-host
			sw:common-lisp-image-file
			))

    (setq sw:common-lisp-image-file (getenv "LISP_HEAP_IMAGE"))
    (setq sw:common-lisp-image-file world-name)
    (setq sw:common-lisp-image-arguments
      ;; see note above
      (if *windows-system-p* '("+c") nil))
    (when (getenv "SOCKET_INIT_FILE")
      (set-socket-init-for-specware))

