--- ./otp_src_R12B-4/lib/compiler/src/sys_pre_expand.erl.orig	2008-10-01 16:03:59.000000000 +0900
+++ ./otp_src_R12B-4/lib/compiler/src/sys_pre_expand.erl	2008-10-01 16:07:50.000000000 +0900
@@ -126,18 +126,18 @@
     end.
 
 ensure_new(Base, Ps, Fs, St) ->
-    case has_new(Fs) of
+    case has_new(Fs, Ps) of
 	true ->
 	    {Fs, St};
 	false ->
 	    add_new(Base, Ps, Fs, St)
     end.
 
-has_new([{function,_L,new,_A,_Cs} | _Fs]) ->
+has_new([{function,_L,new,A,_Cs} | _Fs], Ps) when length(A) =:= length(Ps) ->
     true;
-has_new([_ | Fs]) ->
-    has_new(Fs);
-has_new([]) ->
+has_new([_ | Fs], Ps) ->
+    has_new(Fs, Ps);
+has_new([], _Ps) ->
     false.
 
 add_new(Base, Ps, Fs, St) ->