--- gforth/prim	2006/12/31 13:39:13	1.204
+++ gforth/prim	2007/02/09 17:53:54	1.206
@@ -1028,12 +1028,7 @@ d2 = -d1;
 
 d2*	( d1 -- d2 )		double		d_two_star
 ""Shift left by 1; also works on unsigned numbers""
-#ifdef BUGGY_LL_SHIFT
-DLO_IS(d2, DLO(d1)<<1);
-DHI_IS(d2, (DHI(d1)<<1) | (DLO(d1)>>(CELL_BITS-1)));
-#else
-d2 = 2*d1;
-#endif
+d2 = DLSHIFT(d1,1);
 :
  2dup d+ ;
 
@@ -2766,10 +2761,11 @@ define(`uploop',
 define(`_uploop',
        `ifelse($1, `$3', `$5',
 	       `$4`'define(`$1', incr($1))_uploop(`$1', `$2', `$3', `$4', `$5')')')
+
 \ argflist(argnum): Forth argument list
 define(argflist,
        `ifelse($1, 0, `',
-               `uploop(`_i', 1, $1, `format(`u%d ', _i)', `format(`u%d ', _i)')')')
+               `uploop(`_i', 1, $1, ``u''`_i ', ``u''`_i')')')
 \ argdlist(argnum): declare C's arguments
 define(argdlist,
        `ifelse($1, 0, `',
@@ -2777,15 +2773,15 @@ define(argdlist,
 \ argclist(argnum): pass C's arguments
 define(argclist,
        `ifelse($1, 0, `',
-               `uploop(`_i', 1, $1, `format(`u%d, ', _i)', `format(`u%d', _i)')')')
+               `uploop(`_i', 1, $1, ``u''`_i, ', ``u''`_i')')')
 \ icall(argnum)
 define(icall,
-`icall$1	( argflist($1)u -- uret )	gforth
+`icall$1	( argflist($1) u -- uret )	gforth
 uret = (SYSCALL(Cell(*)(argdlist($1)))u)(argclist($1));
 
 ')
 define(fcall,
-`fcall$1	( argflist($1)u -- rret )	gforth
+`fcall$1	( argflist($1) u -- rret )	gforth
 rret = (SYSCALL(Float(*)(argdlist($1)))u)(argclist($1));
 
 ')