diff --git a/src/system/disk.1227 b/src/system/disk.1227
index 27c2fcc0..6b9e196b 100644
--- a/src/system/disk.1227
+++ b/src/system/disk.1227
@@ -821,8 +821,13 @@ IFN QRSRVP,[
 	SKIPL I,QSALLO(H)
 	 JRST QWRO2B	;THIS DIR GOES ON A PARTICULAR UNIT
 ]
-	SKIPGE I,QWRU	;GET CURRENT WRITING UNIT
+	SKIPGE QWRU	;GET CURRENT WRITING UNIT
 	 JRST QWRO2E	;NO CURRENT UNIT, GO FIND ONE
+	AOS I,QWRU      ;CYCLE THROUGH DISK PACKS
+	CAIL I,NQS
+	 SETZB I,QWRU
+	SKIPE QACT(I)
+	 JRST .-4
 	MOVE TT,QSFT(I)
 	CAML TT,QFTTHR
 	 JRST QWRO2B	;ENOUGH ROOM ON PREFERRED UNIT