*** otp_src_R8B-0/erts/emulator/beam/erl_db_util.c	Tue Mar  5 21:28:15 2002
--- otp_src_R8B-0-fixed/erts/emulator/beam/erl_db_util.c	Tue Mar  5 21:29:33 2002
***************
*** 1492,1493 ****
--- 1492,1495 ----
  	case matchEqFloat:
+ 	    if (!is_float(*ep))
+ 		FAIL();
  	    if (memcmp(float_val(*ep) + 1, pc, sizeof(double)))