Minor fix for header output

install.scm

@@ -15,9 +15,10 @@ exec scsh -lel install-lib/load.scm -dm -o install-commander-s -e install-progra
                (define image-header 
                  (format #f "#!~a/scsh/scshvm \\\n-o ~a/scsh/scshvm -i\n" (lib-dir) (lib-dir)))
   
-               (with-current-output-port 
-                (open-output-file "commander-s.header")
-                (display image-header))
+               (with-output-to-file
+                   "commander-s.header"
+                 (lambda ()
+                   (display image-header)))
 
                (dump-scsh-program 
                 (lambda a (nuit)) "commander-s.image")