diff --git a/src/dcp/versa.211 b/src/dcp/versa.211
index a7773b45..c9bd73bc 100644
--- a/src/dcp/versa.211
+++ b/src/dcp/versa.211
@@ -4344,13 +4344,14 @@ scrloo:	cain x,^L		;find first ^L
 	 jrst scrmor
 	jrst scrloo
 
-scrfin:	skipn ksetok
-	 jrst [	movei x,[ [asciz "~%~T  XGP: File error: no ;KSET command (no fonts)"]]
-		call log"log	;"
-		movei x,string"badreq	;"
-		call util"throw	;"
-		]
-	movei 1
+scrfin:	skipe ksetok		;have we seen a ;KSET?
+	 jrst scrfi2
+	call font"getrdy	;"no - load the XGP's default font
+	movei x,0
+	movei y,[sixbit /dsk/ ? sixbit /25fg/
+		 sixbit /kst/ ? sixbit /fonts/]
+	call font"xgpfnt	;"
+scrfi2:	movei 1
 	came nskip
 	 jrst [	movei x,[ [asciz "~%~T  XGP: File error: must have ;SKIP 1"]]
 		call log"log	;"