diff --git a/Filelist b/Filelist
index f67b059..fe2e34a 100644
--- a/Filelist
+++ b/Filelist
@@ -725,7 +725,6 @@
 		farsi/README.txt \
 		farsi/fonts/*/far-* \
 		runtime/vimlogo.xpm \
-		src/swis.s \
 		src/tee/Makefile \
 		src/tee/Make_mvc.mak \
 		src/tee/tee.c \
diff --git a/src/swis.s b/src/swis.s
deleted file mode 100644
index 562747a..0000000
--- a/src/swis.s
+++ /dev/null
@@ -1,143 +0,0 @@
-; Thomas Leonard
-; 24/5/98
-
-ar0	rn	0
-ar1	rn	1
-ar2	rn	2
-ar3	rn	3
-ar4	rn	4
-ar5	rn	5
-ar6	rn	6
-ar7	rn	7
-ar10	rn	10
-ar11	rn	11
-lk	rn	14
-ar15	rn	15
-
-	AREA	DATA
-	align	4
-
-	export	|r0|
-r0:	dcd	0
-
-	export	|r1|
-r1:	dcd	0
-
-	export	|r2|
-r2:	dcd	0
-
-	export	|r3|
-r3:	dcd	0
-
-	export	|r4|
-r4:	dcd	0
-
-	export	|r5|
-r5:	dcd	0
-
-	export	|r6|
-r6:	dcd	0
-
-	export	|r7|
-r7:	dcd	0
-
-	export	|time_of_last_poll|
-time_of_last_poll:  dcd	0
-
-	AREA	CODE, READONLY
-	align 4
-	import	|r0|
-	export	|swi|
-	=	"swi"
-	align 4
-swi:
-	; r0 = swi number
-	stmfd	sp!,{ar4-ar10,lk}
-	orr	ar10,ar0,#1<<17		;always use the X form
-	mov	ar0,ar1
-	mov	ar1,ar2
-	mov	ar2,ar3
-	add	ar3,sp,#4*8
-	ldmia	ar3,{ar3-ar7}
-	swi	0x6f		; OS_CallASWI
-	ldr	ar10,regs_addr
-	stmia	ar10,{ar0-ar7}
-	ldmvcfd	sp!,{ar4-ar10,pc}^
-	; report the error and quit on Cancel
-	mov	r1,#0x17
-	adr	r2,s_title
-	swi	0x400df		; Wimp_ReportError
-	cmp	r1,#1			;OK selected?
-	ldmeqfd	sp!,{ar4-ar10,pc}^	;yes - try to continue
-	swi	0x11			;no  - die (OS_Exit)
-s_title:
-	= "Nasty error - Cancel to quit"
-	= 0
-
-	align 4
-	export	|xswi|
-	=	"xswi"
-	align 4
-xswi:
-	; r0 = swi number
-	stmfd	sp!,{ar4-ar10,lk}
-	orr	ar10,ar0,#1<<17		;always use the X form
-	mov	ar0,ar1
-	mov	ar1,ar2
-	mov	ar2,ar3
-	add	ar3,sp,#4*8
-	ldmia	ar3,{ar3-ar7}
-	swi	0x6f		; OS_CallASWI
-	ldr	ar10,regs_addr
-	stmia	ar10,{ar0-ar7}
-	mov	ar0,#0
-	orr	ar0,ar0,ar15
-	ldmfd	sp!,{ar4-ar10,pc}^
-
-regs_addr:
-	dcd	r0
-
-	; The Wimp_Poll swis have to be done specially because,
-	; for some reason, r13 sometimes gets corrupted by Wimp_Poll
-	; (eg when running FileFind)
-	AREA	CODE, READONLY
-	align 4
-	import  |time_of_last_poll|
-	export	|wimp_poll|
-	=	"wimp_poll"
-	align 4
-wimp_poll:
-	mov	ar3,sp
-	swi	0x400c7		; Wimp_Poll
-	mov	sp,ar3
-
-	mov	ar3,ar0
-	swi	0x42		; OS_ReadMonotonicTime
-	ldr	ar2,addr_time
-	str	ar0,[ar2]
-	mov	ar0,ar3
-
-	mov	ar2,#0
-	wfs	ar2		; Write floating point status. Needed?
-	movs	pc,lk
-
-	align 4
-	export	|wimp_pollidle|
-	=	"wimp_pollidle"
-	align 4
-wimp_pollidle:
-	mov	ar3,sp
-	swi	0x400e1		; Wimp_PollIdle
-	mov	sp,ar3
-
-	mov	ar3,ar0
-	swi	0x42		; OS_ReadMonotonicTime
-	ldr	ar2,addr_time
-	str	ar0,[ar2]
-	mov	ar0,ar3
-
-	mov	ar2,#0
-	wfs	ar2		; Write floating point status. Needed?
-	movs	pc,lk
-
-addr_time: dcd	time_of_last_poll
diff --git a/src/version.c b/src/version.c
index 436b2a1..71b0410 100644
--- a/src/version.c
+++ b/src/version.c
@@ -765,6 +765,8 @@
 static int included_patches[] =
 {   /* Add new patch number below this line */
 /**/
+    527,
+/**/
     526,
 /**/
     525,