From e01df0725ae7f33fc95cd4bcbe823dda518980c4 Mon Sep 17 00:00:00 2001
From: "Christian A. Weber" <chris@gna.ch>
Date: Sun, 17 May 1992 22:51:49 +0000
Subject: Absturz im Write-Modus korrigiert

---
 Source/CloseIFF.S | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Source/CloseIFF.S')

diff --git a/Source/CloseIFF.S b/Source/CloseIFF.S
index 3c85bd5..963fb53 100644
--- a/Source/CloseIFF.S
+++ b/Source/CloseIFF.S
@@ -1,11 +1,11 @@
 **
-**	$Id: CloseIFF.S,v 1.1 92/05/12 22:26:30 chris Exp $
-**	$Revision: 1.1 $
+**	$Id: CloseIFF.S,v 21.1 92/05/15 03:23:45 chris Exp $
+**	$Revision: 21.1 $
 **
 **	$Filename: CloseIFF.S $
 **	$Author: chris $
 **	$Release: 19.1 $
-**	$Date: 92/05/12 22:26:30 $
+**	$Date: 92/05/15 03:23:45 $
 **
 **	iff.library/IFFL_CloseIFF
 **
@@ -84,6 +84,7 @@ CloseIFFFunc:	movem.l	d2-d3/a2/a5-a6,-(SP)
 		move.l	SP,d2
 		moveq.l	#2,d3			; 1 WORD
 		JSRLIB	Write
+		addq.l	#4,SP
 		add.l	d3,ifffh_FormSize(a2)
 .NoPad:
 
-- 
cgit v1.2.3