diff --git a/ase/awk/tree.c b/ase/awk/tree.c
index 53520e96..6d42f2aa 100644
--- a/ase/awk/tree.c
+++ b/ase/awk/tree.c
@@ -1,5 +1,5 @@
 /*
- * $Id: tree.c,v 1.31 2006-04-02 12:41:14 bacon Exp $
+ * $Id: tree.c,v 1.32 2006-04-04 16:50:36 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -132,7 +132,7 @@ static int __print_expression (xp_awk_nde_t* nde)
 		break;
 
 	case XP_AWK_NDE_REAL:
-		xp_printf (XP_TEXT("%lf"), (long double)((xp_awk_nde_real_t*)nde)->val);
+		xp_printf (XP_TEXT("%Lf"), (long double)((xp_awk_nde_real_t*)nde)->val);
 		break;
 
 	case XP_AWK_NDE_STR:
diff --git a/ase/awk/val.c b/ase/awk/val.c
index e08c6b9b..d7e82d22 100644
--- a/ase/awk/val.c
+++ b/ase/awk/val.c
@@ -1,5 +1,5 @@
 /*
- * $Id: val.c,v 1.14 2006-03-31 16:35:37 bacon Exp $
+ * $Id: val.c,v 1.15 2006-04-04 16:50:36 bacon Exp $
  */
 
 #include <xp/awk/awk_i.h>
@@ -258,7 +258,7 @@ void xp_awk_printval (xp_awk_val_t* val)
 		break;
 
 	case XP_AWK_VAL_REAL:
-		xp_printf (XP_TEXT("%lf"), 
+		xp_printf (XP_TEXT("%Lf"), 
 			(long double)((xp_awk_val_real_t*)val)->val);
 		break;