--- src/installers/80x86/common/scan2.c.orig	Sat Jan 17 17:55:52 1998
+++ src/installers/80x86/common/scan2.c	Thu Jun 11 16:49:17 1998
@@ -944,7 +944,7 @@
 	      *bottom = son(*bottom);
 	    }
 	    else
-	      setsh (son(*bottom), ulongsh);
+	      setsh (*bottom, ulongsh);
 	  }
 	}
 	cc1 (sto, to, 1, e, notopnd, 1, usereg0);
@@ -1127,7 +1127,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;
