Index: src/installers/80x86/common/scan2.c
===================================================================
RCS file: /usr/home/stefan/tendra/cvsup/tendra/src/installers/80x86/common/scan2.c,v
retrieving revision 1.4
diff -u -r1.4 scan2.c
--- src/installers/80x86/common/scan2.c	21 Dec 2002 21:32:24 -0000	1.4
+++ src/installers/80x86/common/scan2.c	20 May 2003 21:55:22 -0000
@@ -843,7 +843,7 @@
 					*bottom = son(*bottom);
 				}
 				else
-					setsh (son(*bottom), ulongsh);
+					setsh (*bottom, ulongsh);
 			}
 		}
 		cc1 (sto, to, 1, e, notopnd, 1, usereg0);
@@ -1026,7 +1026,7 @@
 						*arglist = son(*arglist);
 					}
 					else
-						setsh (son(*arglist), (is_signed (sh (e)) ? slongsh : ulongsh));
+						setsh (*arglist, (is_signed (sh (e)) ? slongsh : ulongsh));
 				}
 				if (last(*arglist))
 					break;