Index: trunk/lisp/nzwei/fasupd.lisp
===================================================================
--- trunk/lisp/nzwei/fasupd.lisp	(revision 257)
+++ trunk/lisp/nzwei/fasupd.lisp	(revision 258)
@@ -38,5 +38,7 @@
   (SETQ INFILE (BUFFER-FILE-NAME BUFFER))
   (SETQ OUTFILE
-	(IF OUTFILE (FILE-DEFAULT-FN2 OUTFILE "QFASL") (FILE-SET-FN2 INFILE "QFASL")))
+	(IF OUTFILE
+	    (SI:FILE-PARSE-NAME OUTFILE NIL (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL))
+	    (FUNCALL INFILE ':COPY-WITH-TYPE ':QFASL)))
   (SETQ INPUT-STREAM (INTERVAL-STREAM BUFFER))
   (UNWIND-PROTECT