--- cci/sys/tahoe/Katanf.x	2019/07/28 12:24:19	1.1.1.1
+++ cci/sys/tahoe/Katanf.x	2019/07/28 12:30:03	1.1.1.2
@@ -44,13 +44,13 @@ L37:	.long	0x40800000, 0x00000000 # .dou
 _Katanf:.word	L22
 	tstl	4(fp)			# if (arg > 0)
 	jleq	L27
-	pushl	20(fp)			# hfs
+	pushal	20(fp)			# hfs
 	pushl	8(fp)
 	pushl	4(fp)
 	callf	$16,_satan
 	ret				# return(satan(arg));
 L27:					# else
-	pushl	20(fp)			# hfs
+	pushal	20(fp)			# hfs
 	lnd	4(fp)
 	pushd
 	callf	$16,_satan