diff --git a/gui.s b/gui.s
index 0eee19c..1590716 100644
--- a/gui.s
+++ b/gui.s
@@ -24,7 +24,7 @@ main:
 	;jmp	tortureTestPrint
 	;jmp	tortureTestRects
 
-	jsr WGClearScreen
+	jsr WGDesktop
 
 	lda	#<testView
 	sta	PARAM0
diff --git a/guidemo.dsk b/guidemo.dsk
index 2af0829..0366729 100644
Binary files a/guidemo.dsk and b/guidemo.dsk differ
diff --git a/painting.s b/painting.s
index a5aa498..e7ad659 100644
--- a/painting.s
+++ b/painting.s
@@ -43,6 +43,43 @@ WGClearScreen_charLoop:
 	rts
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+; WGDesktop
+; Paints the desktop pattern (assumes 80 cols)
+; Side effects: Clobbers BASL,BASH
+;
+WGDesktop:
+
+	SAVE_AXY
+	SETSWITCH	PAGE2OFF
+	ldx	#23
+
+WGDesktop_lineLoop:
+	lda TEXTLINES_L,x	; Compute video memory address of line
+	sta BASL
+	lda TEXTLINES_H,x
+	sta BASH
+
+	ldy	#39
+
+WGDesktop_charLoop:
+	lda #'W'
+	sta	(BASL),y
+	SETSWITCH	PAGE2ON
+	lda #'V'
+	sta	(BASL),y
+	SETSWITCH	PAGE2OFF
+	dey
+	bpl	WGDesktop_charLoop
+
+	dex
+	bpl WGDesktop_lineLoop
+
+	RESTORE_AXY
+	rts
+
+
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; WGPlot
 ; Plots a character at current cursor position (assumes 80 cols)
diff --git a/views.s b/views.s
index 7e9d4d3..5588d61 100644
--- a/views.s
+++ b/views.s
@@ -442,7 +442,7 @@ paintWindowTitle_done:
 ; Erases the current view (including decoration)
 ;
 WGEraseView:
-	SAVE_AY
+	SAVE_AXY
 	SAVE_ZPP
 
 	LDY_ACTIVEVIEW
@@ -470,7 +470,7 @@ WGEraseView:
 
 WGEraseView_done:
 	RESTORE_ZPP
-	RESTORE_AY
+	RESTORE_AXY
 	rts
 
 
@@ -859,6 +859,7 @@ WGViewPaintAll_loop:
 	lda WG_VIEWRECORDS+2,y		; Last view?
 	beq WGViewPaintAll_done
 
+	jsr WGEraseViewContents
 	jsr WGPaintView
 	inx
 	bra WGViewPaintAll_loop