diff -Nru fasm-1.73.01/debian/changelog fasm-1.73.02/debian/changelog
--- fasm-1.73.01/debian/changelog	2017-11-28 18:55:52.000000000 +0000
+++ fasm-1.73.02/debian/changelog	2017-12-30 07:46:25.000000000 +0000
@@ -1,3 +1,10 @@
+fasm (1.73.02-1) unstable; urgency=medium
+
+  * New upstream version 1.73.02
+  * Bump Standards-Version to 4.1.3 (no changes needed)
+
+ -- Tomasz Buchert <tomasz@debian.org>  Sat, 30 Dec 2017 08:46:25 +0100
+
 fasm (1.73.01-1) unstable; urgency=medium
 
   * New upstream version 1.73.01
diff -Nru fasm-1.73.01/debian/control fasm-1.73.02/debian/control
--- fasm-1.73.01/debian/control	2017-11-28 18:55:52.000000000 +0000
+++ fasm-1.73.02/debian/control	2017-12-30 07:46:25.000000000 +0000
@@ -6,7 +6,7 @@
                fasm,
                gcc-multilib [amd64],
                libc6-dev-i386 [amd64]
-Standards-Version: 4.1.0
+Standards-Version: 4.1.3
 Homepage: http://flatassembler.net/
 Vcs-Git: git://anonscm.debian.org/collab-maint/fasm.git
 Vcs-Browser: https://anonscm.debian.org/cgit/collab-maint/fasm.git
Binary files /tmp/tmpngCiP6/JzoBN9bNRL/fasm-1.73.01/fasm and /tmp/tmpngCiP6/A3KeYoZTB8/fasm-1.73.02/fasm differ
Binary files /tmp/tmpngCiP6/JzoBN9bNRL/fasm-1.73.01/fasm.x64 and /tmp/tmpngCiP6/A3KeYoZTB8/fasm-1.73.02/fasm.x64 differ
diff -Nru fasm-1.73.01/source/assemble.inc fasm-1.73.02/source/assemble.inc
--- fasm-1.73.01/source/assemble.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/assemble.inc	2017-12-26 12:40:50.000000000 +0000
@@ -938,6 +938,7 @@
 	add	esi,3+4
 	add	[ebx+18h],ecx
 	mov	[ebx+20h],ecx
+	or	byte [ebx+0Ah],2
 	push	ebx
 	mov	ebx,characters
       get_extension:
diff -Nru fasm-1.73.01/source/DOS/system.inc fasm-1.73.02/source/DOS/system.inc
--- fasm-1.73.01/source/DOS/system.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/DOS/system.inc	2017-12-26 12:40:50.000000000 +0000
@@ -334,7 +334,6 @@
 	mov	al,0FFh
 	jmp	exit_program
 assembler_error:
-	and	[output_file],0
 	call	display_user_messages
 	mov	ebx,[current_line]
 	test	ebx,ebx
diff -Nru fasm-1.73.01/source/libc/system.inc fasm-1.73.02/source/libc/system.inc
--- fasm-1.73.01/source/libc/system.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/libc/system.inc	2017-12-26 12:40:50.000000000 +0000
@@ -131,9 +131,16 @@
 	push	ebx
 	movzx	eax,al
 	ccall	fseek,ebx,edx,eax
+	test	eax,eax
+	jnz	lseek_error
 	mov	ebx,[esp]
 	ccall	ftell,ebx
 	pop	ebx
+	clc
+	ret
+    lseek_error:
+	pop	ebx
+	stc
 	ret
 
 display_string:
@@ -220,7 +227,6 @@
 	jmp	exit_program
 assembler_error:
 	mov	[con_handle],2
-	and	[output_file],0
 	call	display_user_messages
 	mov	ebx,[current_line]
 	test	ebx,ebx
diff -Nru fasm-1.73.01/source/Linux/system.inc fasm-1.73.02/source/Linux/system.inc
--- fasm-1.73.01/source/Linux/system.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/Linux/system.inc	2017-12-26 12:40:50.000000000 +0000
@@ -186,6 +186,9 @@
 	mov	dl,al
 	mov	eax,19
 	int	0x80
+	cmp	eax,-1
+	je	file_error
+	clc
 	ret
 
 display_string:
@@ -284,7 +287,6 @@
 	jmp	exit_program
 assembler_error:
 	mov	[con_handle],2
-	and	[output_file],0
 	call	display_user_messages
 	mov	ebx,[current_line]
 	test	ebx,ebx
diff -Nru fasm-1.73.01/source/Linux/x64/system.inc fasm-1.73.02/source/Linux/x64/system.inc
--- fasm-1.73.01/source/Linux/x64/system.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/Linux/x64/system.inc	2017-12-26 12:40:50.000000000 +0000
@@ -220,6 +220,9 @@
 	syscall
 	mov	esi,r12d
 	mov	edi,r13d
+	cmp	eax,-1
+	je	file_error
+	clc
 	ret
 
 display_string:
@@ -318,7 +321,6 @@
 	jmp	exit_program
 assembler_error:
 	mov	[con_handle],2
-	and	[output_file],0
 	call	display_user_messages
 	mov	ebx,[current_line]
 	test	ebx,ebx
diff -Nru fasm-1.73.01/source/version.inc fasm-1.73.02/source/version.inc
--- fasm-1.73.01/source/version.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/version.inc	2017-12-26 12:40:50.000000000 +0000
@@ -33,7 +33,7 @@
 ; cannot simply be copied and put under another distribution licence
 ; (including the GNU Public Licence).
 
-VERSION_STRING equ "1.73.01"
+VERSION_STRING equ "1.73.02"
 
 VERSION_MAJOR = 1
 VERSION_MINOR = 73
diff -Nru fasm-1.73.01/source/Win32/system.inc fasm-1.73.02/source/Win32/system.inc
--- fasm-1.73.01/source/Win32/system.inc	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/source/Win32/system.inc	2017-12-26 12:40:50.000000000 +0000
@@ -187,6 +187,9 @@
 	push	edx
 	push	ebx
 	call	[SetFilePointer]
+	cmp	eax,-1
+	je	file_error
+	clc
 	ret
 
 display_string:
@@ -314,7 +317,6 @@
 	jmp	exit_program
 assembler_error:
 	mov	[con_handle],STD_ERROR_HANDLE
-	and	[output_file],0
 	call	display_user_messages
 	mov	ebx,[current_line]
 	test	ebx,ebx
diff -Nru fasm-1.73.01/whatsnew.txt fasm-1.73.02/whatsnew.txt
--- fasm-1.73.01/whatsnew.txt	2017-11-25 17:44:50.000000000 +0000
+++ fasm-1.73.02/whatsnew.txt	2017-12-26 12:40:50.000000000 +0000
@@ -2,6 +2,11 @@
 Visit http://flatassembler.net/ for more information.
 
 
+version 1.73.02 (Dec 16, 2017)
+
+[-] Fixed a bug in the storage of "virtual as" blocks.
+
+
 version 1.73.01 (Nov 25, 2017)
 
 [+] Added virtual block continuation syntax (backported from flat assembler g).