       (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-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
	    (if *windows-system-p* '("+cn") nil))
      (when (getenv "SOCKET_INIT_FILE")
	(set-socket-init-for-specware))
      (let ((log-warning-minimum-level 'error))

  (setq sw:common-lisp-image-file (or (and (boundp 'sw:common-lisp-image-file) sw:common-lisp-image-file)
				      (getenv "LISP_HEAP_IMAGE")))
  (setq sw:common-lisp-image-arguments
    ;; see note above
    (if *windows-system-p* '("+c") nil))

  (let ((log-warning-minimum-level 'error))
    (sw:common-lisp sw:common-lisp-buffer-name
