Index: src/tclx/ucbsrc/tclexpr.sed
--- src/tclx/ucbsrc/tclexpr.sed.orig
+++ src/tclx/ucbsrc/tclexpr.sed
@@ -1,2 +1,3 @@
 /	    sprintf(interp->result, "%g", value.doubleValue);/c\
+#include "tclxint.h"\
 	    Tcl_ReturnDouble (interp, value.doubleValue);
